Давыдченко 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.