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

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

Помогите, пожалуйста Вычислить значение выражения: - провести проверку корректности введённых данных; - в случае, если данные некорректны, вывести соответствующее сообщение; - если данные корректны, вычислить значение выражения: u=tan^2(4α+βπ)/t

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

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

var a,b,t,u:real;
begin
write('t=');
readln(t);
write('alfa=');
readln(a);
write('beta=');
readln(b);
if t=0 then write('Значение u не определено, деление на 0')
else
 begin
  u:=sqr(sin(4*a+b*pi)/cos(4*a+b*pi))/t;
  write('u=',u:0:4);
 end;
end.

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

Объявлены четыре переменные: a, b, t, u (реальные числа).
Пользователю предлагается ввести значение переменной t.
Затем пользователю предлагается ввести значение переменной a.
После этого пользователю предлагается ввести значение переменной b.
Далее выполняется проверка: если t равно нулю, то выводится сообщение об ошибке Значение u не определено, деление на 0.
В противном случае выполняется вычисление: u = sqrt(sin(4a+bpi)/cos(4a+bpi))/t.
И, наконец, выводится значение переменной u с точностью до четырех знаков после запятой.