sum
sum:=0; for i:=5 to 8 do sum:=sum+i;
500 ms 32 Mb Правила оформления программ и список ошибок при автоматической проверке задач