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

var a, b, D:real;beginreadln(a, b);if b = 0 thenwriteln('Решений нет')elsebeginD := a/b;writeln(D);end;end.