Та дело в том, что я сделал, но не знаю, чего не выполняется
Код:
program x3;
var a1,b,ai:real;
i,n :integer;
begin
writeln('Введите число');
readln(b);
if b<0 then
writeln('число меньше ноля')
else
begin
a1:=b;
n:=1;
for i:=2 to n+i do
begin
while ai<0 do
begin
ai:=(ai-1)-1/Sqrt(1);
writeln(ai);
end;
end;
end;
end.
