Вычтех_6 / 6_1

Program laba6_1;
Uses
crt;
Const
a=0.6; c=1.2;
P1='|-----|----------|';
P2='| x | f |';
Var
x, f1, f2 : real;
Begin
clrscr;
x:=0.4;
Writeln(P1); Writeln(P2); Writeln(P1);
While x<3.00000001 do
Begin
f1:=ln(sqrt(sqrt(x+c)))/ln(10);
f2:=sin(sqrt(a*x));
If sqr(a)-sqr(x)>=0 then
Writeln('| ', x:3:1,'| ', f1:8:5,'|')
else
If sqr(a)-sqr(x)<-2.4 then
Writeln('| ', x:3:1,'| ', f2:8:5,'|');
x:=x+0.2;
End;
Writeln(P1);
Readln;
End.