Begin
var a := ReadInteger;
var c : string;
Assert(a >= 1);
Assert(a <= 99);<br> case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'korova';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'korovy';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'korov';
end;
Writeln('На лугу пасется ', a, ' ', c);
end.