Program Penghitungan Dasar dengan Pascal

program tes2;
uses crt;
var a,b:real;
    c,d,e,f:integer;
begin
clrscr;

begin
write('Bilangan pertama = ');
readln(a);
end;

begin
write('Bilangan kedua = ');
readln(b);
end;

begin
writeln('Penjumlahan = ',a+b);

writeln('Pengurangan = ',a-b);

writeln('Perkalian = ',a*b);

writeln('Pembagian = ',a/b);

readln;
end;

end.