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

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке Pascal (ABC):

program AnimalsCount;
var
n: integer;
ending: string;
begin
Write('Введите число: ');
Readln(n);
if (n mod 10 = 1) and (n mod 100 <> 11) then
ending := 'korova'
else if (n mod 10 >= 2) and (n mod 10 <= 4) and ((n mod 100 < 10) or (n mod 100 >= 20)) then
ending := 'korovy'
else
ending := 'korov';
Write(n, ' ', ending);
end.

Эта программа запрашивает у пользователя число, определяет правильное склонение слова "korov/korova/korovy" в зависимости от числа, и выводит результат на экран.