Question

Помогите пожалуйста с паскалем

Answer 1

begin
var
x, y, a : real;
x := 0.1;
a := 0.15;
while x <= 0.9 do begin
y := ((4*sqrt(1-a*sqr(x)))/(1+sqr(a)+sqr(x)))+sqrt(1-sqr(x));
writeln('x=', x, '; y=', y);
x += 0.2;
end;
end.

надеюсь, я ничего не забыл ^^