Syntax Bilangan

MENENTUKAN LEBIH BESAR, LEBIH KECIL ATAU SAMA DENGAN PADA SEBUAH BILANGAN

program Bilangan;
uses wincrt;
var A,B:integer;

begin
Writeln ('================================');
writeln ('      LATIHAN TURBO PASCAL      ');
writeln ('   ALGORITMA DAN PEMPROGRAMAN   ');
writeln ('================================');
writeln ('            PILKOM B            ');
Writeln ('Nama Kelompok :                 ');
Write   ('1.');
writeln ('Abd.Mukmin     NIM.1205045171   ');
Write   ('2.');
writeln ('Alvi Wijaya    NIM.1205045161   ');
writeln ('================================');
writeln ('');

write('masukan nilai Pertama : ');readln(A);
write('masukan nilai Kedua : ');readln(B);
if (a<b) then
begin
write(A,' lebih kecil dari ',B);
end
else if (a=b) then
begin
write (A,' sama dengan ',B);
end
else
begin
write(A,' lebih besar dari ',B);
end;
end.