Программа Паскаль. Напишите всё решение от начала до самого конца

программа (аналог) только для копеек

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.