Вроде бы код правильный, но все время при вводе любого числа возникает один и тот же ответ, к тому же из больших чисел.
Код:
label 1,2;
var
a1,a2,a3: real;
i,m: integer;
begin
a1:=1;
a2:=10;
a3:=(a2+a1)/2;
i:=3;
Writeln(Rus('Введите m: '));
Readln(m);
While abs(a3-7)<exp(-4*ln(10)) do
begin
i:=i+1;
a1:=a2;
a2:=a3;
a3:=(a2+a1)/2;
If i>m then goto 1;
end;
Writeln(Rus('Порядковй номер члена равен: '),i);
Readln;
goto 2;
1: Writeln(Rus('За'),m,Rus(' оборотов цикла условие не достигнуто'));
2: end;