bahasa pemrograman pascal membandingkan dua bilangan

Program Membandingkan_Dua_Bilangan {input,uotput};
Var
        a,b: integer;
Begin
        write('Masukkan dua bilangan : ');
        writeln('Nilai a : ');
        readln(a);
        writeln('Nilai b :');
        readln(b);
        if a>b then write('A > B')
           else if a = b then write ('A = B')
           else write('A < B');
        readln;
end.