program perhitungan dasar

program perhitungan dasar

uses wincrt ;
 var c: integer;
begin
 c:=5*2-2+20;
write (c);
end.

Hasil run : 28 

ini hanya sebagai contoh saja, anda bisa memasukan angka-angka dan bariabel perhitungan yang lain sesuai dengan kehendak.