Pemrograman Komputer 1

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