menen tukan angka terbesar terkecil program pascal

program menentukan_angka_terbesar_terkecil;
uses crt;
var
A,B:integer;
begin
       writeln('4.Menentukan Bilangan Terbesar Terkecil');
       writeln;
       write(' nilai A:  '); readln(A);
       write(' nilai B:  '); readln(B);
       if (A > B) then
       writeln('A lebih besar  dari pada B')
       else if (B > A) then
       writeln('B lebih besar  dari A')
        else
              writeln('sama');

       readkey;

end.