Question

Сколько раз выполнится цикл
y:=1;
i:=1;
While i>1 do begin
y:=y+1/i;
end;

Answer 1

Ноль, потому что i не больше единицы еще до начала работы цикла.

Answer 2

Конечно же будет ноль