Ноль, потому что i не больше единицы еще до начала работы цикла.
Поделитесь своими знаниями, ответьте на вопрос:
Сколько раз выполнится цикл y:=1; i:=1; While i>1 do begin y:=y+1/i; end;
Ноль, потому что i не больше единицы еще до начала работы цикла.