Написать программу выводящую ** экран значение переменной D=a/b,учитывая,что если...

Question

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

Answer 1

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