Написать метод для паскаля. Составить программку, которая после введённого с клавиатуры

program zz1;

var a, b:integer; // вводим переменные целого типа

begin

write( введите  число ); // вводим с клавиатуры  число

read(a);

if a mod 10 = 1 then write(a, копейка );

if ((a gt; 19) or (a lt; 11)) and ((a mod 10 = 2) or (a mod 10 = 3) or (a mod 10 = 4)) then write(a, копейки );

if ((a gt; 19) or (a lt; 11)) and ((a mod 10 = 5) or (a mod 10 = 6) or (a mod 10 = 7) or (a mod 10 = 8) or (a mod 10 = 9) or (a mod 10 = 0)) then write(a, копеек );

if (a gt; 11 ) and (a lt; 20) then write(a, копеек );

end.