требуется проверить пример на наличе ошибок

[Rusak723]

Program pr_2;
Var q,k,d,h,a,b,c:real;
Begin
readln(a,b,c);
Q:=sqrt(1+sqr(sin(a)/cos(a))+b*sqr(cos(c)/sin(c))-sqrt(3+ln(a)+sin(b)));
Writeln;
Writeln('Q=',Q:10:5);
Readln;
End.

вот данные http://cs5943.vkontakte.ru/u13641686...z_e3973f8e.jpg

помогите плиз

[Mad_Cat]

помогите плиз

дык запусти и проверь)
сначала пусть программа посчитает а потом сам на калькуляторе) или наоборот)

Паскаль ABC --> все работает!!!

говорит что ошибка: неверная вещественная операция

разбей большую формулу на более мелкие

[Rusak723]

говорит что ошибка: неверная вещественная операция (Program1.pas, строка 5)