Помогите решить

[33Evgenyy33]

Это нужно реализовать

[скалогрыз]

Код: Выделить всё

var
  i : integer;
  q : real;
begin
  q := 0;
  i := 99;
  while i > 0 do begin
    q := sqrt(q+i);
    dec(i,3);
  end;
end.

нет?

[33Evgenyy33]

Да спасибо, ну никак не мог догадаться, только начинаю изучать. Спасибо!

Добавлено спустя 25 секунд:
скалогрыз
Да спасибо, ну никак не мог догадаться, только начинаю изучать. Спасибо!