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

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

Помогите написать в Паскаль

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

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

var x,y,a:real;
begin
repeat
write('Введите x>0 x=');
readln(x);
until x>0;
a:=cos(x)-(sqr(sqr(sin(x*x))))/x-(x*x*x*x+0.96*x-1)/(x*x*x*x+x*x*x-2.37);
y:=sqr(sin(x))+a*a*a+sqrt(x);
y:=y*y*y*y;
write('y=',y:0:4);
end.

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

Создается переменная x типа real, и присваивается ей значение 0.
Создается переменная y типа real, и присваивается ей значение 0.
Создается переменная a типа real, и присваивается ей значение 0.
В цикле repeat, выводится сообщение для ввода значения x>0.
Считывается значение x с помощью функции readln().
Проверяется, что значение x больше 0. Если нет, то цикл повторяется.
Вычисляется значение a по формуле cos(x)-(sqr(sqr(sin(x*x))))/x-(x*x*x*x+0.96*x-1)/(x*x*x*x+x*x*x-2.37).
Вычисляется значение y по формуле sqr(sin(x))+a*a*a+sqrt(x).
Значение y возводится в квадрат y=y*y*y.
Выводится значение y с точностью до 4 знаков после запятой.
Цикл repeat завершается, когда значение x становится больше 0.
Программа завершается.