Вычислить значение выражения

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

 readln(a,b,c);
 Q:=sqrt(1+sqr(sin(a)/cos(a))+b*sqr(cos(c)/sin(c))-sqrt(3+ln(a)+sin(b)));

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.

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