Как решить задачу на паскале?

Question

[Gildars]

Помогите решить задачу на паскале.
Условие
Написать программу нахождения функции Z
Z=√XY + 1/2(X^2+Y^3+XY)+COS^2X где: X=A^2/B^2; Y=ba
Результат вычисления вывести в фермате. Общее поле 7, символов после десятичной точки-3. Предусмотреть в программе вывод сообщения на экран для случая когда задача не имеет решения. Три значения a и b задать самостоятельно.
P.S. Две нидели в больниц ележал много пропустил а завтра лаба и мне эту задачю нужно решить.
Вот то что я кое как написал но с ошибкой которую никак исправить не могу(

Program Lab_2;
var x,y,z,b,a: real;
begin
writeln ('Введите число a і b');
readln (a,b);
z:= sqrt(x*y)+ 1/2*(exp(ln(x)*2)+exp(ln(y)*3)+(x*y))+exp(ln(cos(x))*2)*x;
x:= exp(ln(a)*2)/exp(ln(b)*2);
y:= b*a;
write (z);
end.

Буду очень рад если поможете решить.

Answer 1

[Linchee]

Уже не надо!
Разобрался, чурки

Answer 2

[dmestroone]

Кошмар.