Вычислить значение математического выражения для заданных данных

[Rusak723]

Program zadacha;
Var y,x,b,c,k:real;
Begin
write('vedite y');
Readln(y);
if y>5.2 then x:=7*exp(3*ln(y))-3*sqr(y) else x:=abs(y)-2.5;
b:=(7.5*x/y*x-y*exp(3*ln(x))+sqrt(sqr(x)+sqr(y))) ;
c:=ln(abs(b-2*b*y+3*sqr(y)))/ln(10);
k:=((c+y)/(exp(abs(y))-exp(abs(c)))+3.14*c*y+(sqr(c)/2.7));
writeln;
writeln('pri y=', y:10:5,'k=', k:10:5);
Readln;
end.

[Rusak723]

пожалйста помогите сочтемся

[Alex11223]

Задание-то какое? Какое задание? Очень знать надо пожалуйста очень помоги ошибку чтобы найти или в чем ошибка скажи пожалуйста необходимо очень.

[Rusak723]

http://cs5943.vkontakte.ru/u13641686...z_3f6c32e2.jpg вот задание не забуду)