var i, sum: integer; begin i := 10; sum := 0; While i > 5 do begin sum := sum + i div 5; i := i - 5 end; write(sum) end.
500 ms 32 Mb Правила оформления программ и список ошибок при автоматической проверке задач