Составить программу вычисления выражения - Pascal ABC (14608)

Составить программу вычисления выражения: кубический корень у +1+tg в квадрате х/2

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

Var
 x,y:real;
begin
 readln(x,y);
 writeln('Г‚Г»Г°Г*Г¦ГҐГ*ГЁГҐ:=',y*y*y+1+sqr(sin(x/2)/cos(x/2)));
 readln
end.

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

В данном коде происходит следующее:

Объявляются две переменные типа real: x и y.
Считывается значение обеих переменных с помощью функции readln.
Вычисляется выражение y*y*y+1+sqrt(sin(x/2)/cos(x/2)). Здесь sin и cos используются для вычисления квадратного корня и синуса и косинуса соответственно.
Результат выводится на экран с помощью функции writeln.
Вызывается функция readln для чтения следующего ввода.