[lxa85]

Нет. Это задача троешника. Условия, циклы проходили? Проходили. Берем конспект лекций и вперед. (В крайнем случае - любую книгу по программированию)
Все необходимо в задаче есть. Различных оговорок и поправок вносить просто некуда. Прям бери и пиши.
Сложно сразу в коде? Тогда словами. Берем А, делим на В, умножаем на С, делаем следующий шаг и т.д.
Получится словами, уже хорошо. Потом берем слова и заменяем русские слова на слова и конструкции языка.
Удачи!

[-Marshall-]

Та дело в том, что я сделал, но не знаю, чего не выполняется

Код:

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.

[Drongo]

-Marshall-, Небольшой совет, делайте отступы в блоках\условиях, так будет легче читать код. Иначе многие специалисты, просто не утрудят себя "ломанием" глаз чтобы прочитать не читабельный код. Понимаете?

[lxa85]

-Marshall-, вводи в текст форматирование и комментарии. Уважай себя и других. Твой код читать невозможно!
Какой end к чем относится? Где начинается и, еще интересней, где заканчиваются условия?
То же самое с циклами. Тело цикла сдвинуть вправо, для нормальной читаемости.