Сколько раз выполнится тело цикла Х:=5; for i:=-1 to 5 do X:=Х+1