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

Program fiveV7;
Var a,b,F1, F2, x, dx,n: real;
Begin
write('vvedite a=');read(a);
write('vvedite b=');read(b);
writeln ('введите число точек N'); read(n);
dx:=(b-a)/(n-1);
x:=a;
writeln ('_________________________________________');
writeln ('| X | F1 | F2 |');
writeln ('|----------|-----------|-----------|');
Repeat
F2:=20/(1+(SQR(X)));
F1:=exp(-x*ln(2))/100;
writeln('|', x:10:2,'|', F1:10:2,' |', F2:10:2,' |');
x:=x+dx;
Until x>b;
writeln('|_______________________________________|');
End.