TPW program arimatika

Hallo teman teman . . .
maaf sudah lama tidak posting . .
dalam postingan kali ini saya akan belajar membuat program dengan TPW (Turbo Pascal)
saya akan membahas secrip  tentang program aritmatik;
langsung saja ini secrip program arimatika nya, . . .



uses wincrt;
var a,b,c,d,e,f,g,h,i,j,k,l:real;

begin
write ('masukkan penjumlahan : '); read(a);
write('masukkan angka jumlah : '); read(b);
c:=a+b;

writeln('hasil akhir penjumlahan : ',c:2:2);


write('masukkan pengurangan');
read(d);
write('masukkan angka pengurangan');
read(e);
f:=d-e;
writeln('hasil akhir pengurangan',f:2:2);


write('masukkan  perkalian');
read(g);
write('masukkan angka kali');
read(h);
i:=g*h;
writeln('hasil akhir perkalian',i:0:0);

write('masukkan pembagian');
read(j);
write('masukkan angka bagi');
read (k);
l:=j/k;
write('masukkan akhir bagi',l:0:0);
end.