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

Помогите написать программу на языке Turbo Pascal по этой задаче: a= 0,5 b= 2,9 x= 0,3

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

Program Lab2;
Var
a,b,x,z:real;
Begin
Writeln('Введите a,b,c');
Read(a,b,x);
z:=sqr(cos(x*x*x))-x/sqrt(a*a+b*b);
Writeln('y=',y:8:3);
End

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

Программа Lab2 начинается с объявления переменных a, b, x и z типа real.
Затем происходит вывод сообщения 'Введите a,b,c' для ввода значений переменных a, b и x.
Чтение введенных значений происходит с помощью функции Read.
Значение переменной z вычисляется как квадрат косинуса от x, деленное на корень из суммы квадратов a и b.
Выводится сообщение 'y=', за которым следует значение переменной y в формате 8:3.
Программа заканчивается.