Каппа и её слоники

0

Имя входного файла

стандартный ввод

Имя выходного файла

стандартный вывод

Ограничение по времени

2 секунды

Ограничение по памяти

64 мегабайта

Каппа любит слоников. Дома у Каппы всегда много слоников. Но иногда слоники убегают. Куда и почему Каппа не знает :( . Нужно в очередной раз пересчитать всех слоников, чтобы знать сколько убежали.


Формат входных данных


Дано целое положительное число n - количество слоников (1 ≤ n ≤ 1000)

Формат выходных данных


Выведите n строк вида “<номер> слоник” и в конце фразу “Нет больше слоников”


Примеры


входные данные выходные данные

5

1 слоник

2 слоник

3 слоник

4 слоник

5 слоник

Нет больше слоников

Отправить на проверку




срочно!!!

Ответ:

var  

 n, i: integer;

begin

 readln(n);

 for i := 0 to n do

  begin

   writelnformat('{0} слоник',i+1);

  end;

end.

Объяснение: