[ZhenkaZ]

описофщит

var n, k : byte;
BEGIN
write('Введите количество коппеек(от 0 до 99) : '); ReadLn(n);

k := n;
if n > 0 then k := n mod 10;
case k of
1: Writeln( n,' копейка');
2..4:WriteLn( n, ' копейки');
5..9, 0 : WriteLn( n, ' копеек');
end;
END.

месяца