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