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

0