Написать программу, которая после введенного с клавиатуры числа ( в диапозоне от 1 до 99) обозначающего денежную единицу, дописывает слово рубль в правильной форме. например 12 рублей, 21 рубль.

Вот на pascal  (console aplication) : var        a: integer; begin  writeln('vvedite nominal valuti');   readln(a);   case (a mod 10) of    1:     if (a=11) then      writeln('y vas est ',a,' rublei')    else    begin      writeln('y vas est ',a,' rubl');     end; 2,3,4:     if (a=12) or (a=13) or (a=14)  then    writeln('y vas est ',a,' rublei')    else    begin    writeln('y vas est ',a,' rublya');     end; 0,5,6,7,8,9:     if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then    writeln('y vas est ',a,' rublei')    else    begin    writeln('y vas est ',a,' rublei');     end;   end; readln; end.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.