Program Pembagian

program pertambahan;

uses wincrt;

var
   a, b : integer;
   c     : real;
begin
     write('Masukan nilai A : ');
     readln(a);
     write('Masukan nilai B : ');
     readln(b);
     c := a / b;
     writeln();
     writeln('Hasil : ',c:0:2);

readkey();

end.