Каппа и её слоники 0имя входного файластандартный вводимя выходного файластандартный выводограничение по времени2 секундыограничение по памяти64 мегабайтакаппа любит слоников. дома у каппы всегда много слоников. но иногда слоники убегают. куда и почему каппа не знает : ( . нужно в очередной раз пересчитать всех слоников, чтобы знать сколько убежали.формат входных данныхдано целое положительное число n - количество слоников (1 ≤ n ≤ 1000)формат выходных данныхвыведите n строк вида “ слоник” и в конце фразу “нет больше слоников”примерывходные данные выходные данные51 слоник2 слоник3 слоник4 слоник5 слоникнет больше слониковотправить на проверку!
var
n, i: integer;
begin
readln(n);
for i := 0 to n do
begin
writelnformat('{0} слоник',i+1);
end;
end.
Объяснение: