Проведите вычисления по указанным формулам - Turbo Pascal

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

Проведите вычисления по указанным формулам на алгоритмическом языке turbo-Pascal. Заранее благодарю откликнувшихся!

Решение задачи: «Проведите вычисления по указанным формулам»

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

uses crt;
var a,x,y,z,f:real;
begin
clrscr;
a:=13.5*sin((38+1/12)*pi/180);
y:=exp(3.33);
x:=sqrt(y);
writeln('x=',x:0:2,' y=',y:0:2);
if x<y then z:=sqrt(x*y+x*x)
else if x=y then z:=sqrt(x*x+y*y)
else z:=sqrt(x*y-y*y);
writeln('z=',z:0:2);
f:=sqrt(z+y*a)/sqrt(z+x*a);
write('f=',f:0:2);
readln
end.

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

Объявлены пять переменных: a, x, y, z, f (строки 6-10).
Задаются значения для переменных a и y (строки 11-12).
Вычисляется значение переменной x (строка 13).
Выводятся значения переменных x и y (строка 14).
Если значение переменной x меньше значения переменной y, то вычисляется значение переменной z (условный оператор if, строки 15-17).
Если значение переменной x равно значению переменной y, то вычисляется значение переменной z (условный оператор if, строки 15-17).
Если значение переменной x больше значения переменной y, то вычисляется значение переменной z (условный оператор if, строки 15-17).
Вычисляется значение переменной f (строка 18).
Выводится значение переменной f (строка 19).
Ожидается ввод данных с помощью функции Readln (строка 20).