pembagian

program pembagian;
uses wincrt;
var
a,b : integer;
c : real;
begin
writeln('program pembagian');
writeln(' ');
writeln(' ');
write('masukkan nilai a : '); readln(a);
write('masukkan nilai b : '); readln(b);
c := a/b;
writeln('hasilnya pembagian ',a,' / ',b,' = ',c:0:1);
end.