Вычислить значение выражения - Pascal ABC (12589)

Формулировка задачи:

Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

Решение задачи: «Вычислить значение выражения»

Листинг программы

var
x,y,a,b: real;
begin
write('Введите x: ');
readln(x);
write('Введите a: ');
readln(a);
while a<=0 do begin
write('Ошибка, "a" введено неправильно! Введите "a" повторно: ');
readln(a);
end;
write('Введите b: ');
readln(b);
while b=0 do begin
write('Ошибка, "b" не может быть равно нулю! Введите "b" повторно: ');
readln(b);
end;
y:=(abs(x-b)/(2*sqrt(a)))-(tan(x)/(b*b));
writeln('y = ',y);
end.

Объяснение кода листинга программы

Создается переменная x типа real, и присваивается ей значение, введенное пользователем.
Создается переменная y типа real.
Создается переменная a типа real.
Создается переменная b типа real.
Запускается цикл while, который выполняется до тех пор, пока значение переменной a меньше или равно нулю.
Внутри цикла выводится сообщение с просьбой ввести значение переменной a заново.
Значение переменной a считывается из файла ввода.
Проверяется, не равно ли значение переменной a нулю. Если это так, то выводится сообщение об ошибке и запрашивается повторный ввод.
Запускается цикл while, который выполняется до тех пор, пока значение переменной b не равно нулю.
Внутри цикла выводится сообщение с просьбой ввести значение переменной b заново.
Значение переменной b считывается из файла ввода.
Проверяется, не равно ли значение переменной b нулю. Если это так, то выводится сообщение об ошибке и запрашивается повторный ввод.
Вычисляется значение переменной y по формуле y = abs(x-b)/(2*sqrt(a))-(tan(x)/(b*b)).
Выводится значение переменной y.
Цикл while завершается.
Программа завершается.