Создать программу, чтобы находило частное от деления. заранее !

Program qq;
var a,b,c:real;
begin
writeln('vvedite delimoe I delitelb');
readln(a,b);
c:=0;
c:=a/b;
writeln('частное =',c);
readln;
readln;
end.