Помогите. Не могу найти ошибку

[Ximer]

program capta1n;
var
y,a,c,x,m : real;
flag : boolean;
begin
write ('a= '); readln (a);
write ('c= '); readln (c);
write ('x= '); readln (x);
flag:=false;
if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then
begin
flag:=true;
m:=4*sqr(cos(5*sqr(sin(x))))*cos(5* sqr(sin(x)))*cos(x)/
(5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))*
sin(c)/cos(c))
end;

if flag and (m>0) then
y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c)))
+sqrt(m);

write ('a c x y'); writeln;
write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln;

readln
end.

Пожайлуста проверте где я допутил ошибку. Если ошибки нет, то просто не верное условие(

[Arigato]

проверте где я допутил ошибку

Что-то мне подсказывает, что это не Вы писали. Что эта программа хотя бы должна посчитать?

[Sazary]

Во-первых, могли бы синтаксические ошибки исправить сами.
Во-вторых, скажите условие.

[Ximer]

Вот условие. 1 задачка
http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/