Определение множественной формы существительного (Pascal)

AvariItigail

10 июня 2016

По данному числу n закончите фразу «На лугу пасется…» одним из возможных продолжений: «n коров», «n корова», «n коровы», правильно склоняя слово «корова».

Входные данные
Дано число n (n < 100).

Выходные данные
Программа должна вывести введенное число n и одно из слов (на латинице): korov, korova или korovy, например, 1 korova, 2 korovy, 5 korov. Между числом и словом должен стоять ровно один пробел.

Исходный код на языке Pascal

var
  n: integer;

begin
  read(n);
  if (n mod 10 = 1) and (n <> 11) then 
    writeln(n, ' korova');
  if (n mod 10 > 1) and (n mod 10 < 5) and ((n < 10) or (n > 20)) then
    writeln(n, ' korovy');
  if (n mod 10 > 4) or (n mod 10 = 0) or (n > 9) and (n < 21) then 
    writeln(n, ' korov');
end.