Pascal: Kalkulator Sederhana

program mtkQ;
uses wincrt;
const pi=3.14;
var
   a,b,C,D,E,F:real;
   g,h,i,j:string;
begin
   writeln('            Selamat Datang di Kalkulator sederhanaQ');
   writeln  ;
   write('masukkan bilangan pertama = ');read(a);
   write('masukkan bilangan kedua = ');read(b);       writeln  ;
   g:='ditambah';
   h:='dikurangi';
   i:='dibagi';
   j:='dikali';
   c:=a+b;
   D:=a-b;
   E:=a/b;
   F:=a*b;
   writeln('1. penjumlahan');
   writeln('Hasil Penjumlahan dari',a:3:0,' ',g,b:2:0,' adalah ' ,C:2:0);   writeln  ;
   writeln('2. pengurangan');
   writeln('Hasil Pengurangan dari',a:3:0,' ',h,b:2:0,' adalah ', D:2:0);  writeln  ;
   writeln('3. pembagian');
   writeln('Hasil Pembagian dari',a:3:0,' ',i,b:2:0,' adalah  ', E:2:0); writeln  ;
   writeln('4. perkalian');
   writeln('Hasil Perkalian dari',a:3:0,' ',j,b:2:0,' adalah ', F:2:0); writeln  ;

end.

Hasil Running