программа (аналог) только для копеек
program z4;
uses crt;
var a:byte;
begin
clrscr;
write('Введите число(1-99): ');
readln(a);
if (a<1) or (a>99) then
writeln('Некорректно введено число!')
else
begin
if (a=11) or (a=12) or (a=13) or (a=14) then
writeln(a,' копеек.')
else
case a mod 10 of
1:writeln(a,' копейка.');
2,3,4:writeln(a,' копейки.');
5,6,7,8,9,0: writeln(a,' копеек.');
end;
end;
end.