Программа вычисляет частное двух чисел

program DemoIf;
uses wincrt;
var a, b: integer; c: real;
begin
write (‘Введите два числа: ’);
readln (a, b);
if b=0 then writeln (‘Нет решения’)
else
begin
c:=a/b;
writeln (‘Частное чисел ’,a,’ и ’,b,’=’, c)
end
end.