program iter_nelin; Uses Crt; const e=0.01; var x,y,x0,y0:real; i:integer; begin ClrScr; x0:=1.5; y0:=0.8; x:=sqrt(4-sqr(y0)); y:=sqrt(x0-1); while ((abs(y-y0)>e) and (abs(x-x0)>e)) do begin x0:=x; y0:=y; x:=sqrt(4-sqr(y0)); y:=sqrt(x0-1); end; writeln ('ответ:'); write ('x=',x:2:2,',y=',y:2:2); writeln; writeln ('проверка:'); writeln (sqr(x)+sqr(y):2:5); writeln (x-sqr(y):2:5); readln end.