Давыдченко 4 вариант 7 Э-112

Program fourV7;
var dx,F1,F2,x:real;
begin
                writeln('-------------------------------------');
                writeln('   a  |   x  |    F1     |    F2    |');
                writeln('-------------------------------------');
   dx:=0.1;
   while dx<=0.81 do
        begin
              writeln(dx:5:2);
              x:=-1;
              while  x<=3 do
                    begin
F2:=20/(1+(SQR(X)));
F1:=exp(-x*ln(2))/100;
writeln(x:12:2,'|',F1:10:2,'|',F2:10:2);
x:=x+dx;
end;
writeln('------------------------------------');
dx:=dx+0.1
        end;
end.