Написать программу выводящую на экран значение переменной d=a/b,учитывая,что если делитель равен 0,то решений нет (a и b вводятся с клавиатуры) (pascal)

Var a, b, D:real;
begin
readln(a, b);
if b = 0 then
writeln('Решений нет')
else
begin
D := a/b;
writeln(D);
end;
end.