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.
Belum ada tanggapan untuk "Program Penghitungan Dasar dengan Pascal"
Posting Komentar