Составить программу для решения следующей задачи: найти все двузначные числа, сумма цифр которых кратна девяти. C#

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

Формула Шеннона: I=log2 N  (I-кол-во инф-ции; N=всё/нужное)

обозначение:
ч - кол-во четвёрок
т - кол-во троек
д - количество двоек
пятёрок нет

по условию   т+д=22
не провалившиеся = ч+22  > log2 3=log2 ((ч+22)/(ч+т))

инф-ный объём сообщения, что тройка = 2 битам  >
   2=log2 ((ч+22)/т)

Имеем систему трёх уравнений с тремя неизвестными:
т+д=22
log2 3=log2 ((ч+22)/(ч+т))
2=log2 ((ч+22)/т)                                >log2 4=log2 ((ч+22)/т)
       Преобразуем:   
система:
т+д=22
3=(ч+22)/(ч+т)
4=(ч+22)/т        >   ч+22=4т

т+д=22
3ч+3т=ч+22
4т=ч+22

т+д=22
3ч+3т=4т
4т=ч+22

т+д=22
3ч=т
12ч=ч+22

т+д=22
3ч=т
ч=2

ч=2                   т=3ч=6                    д=22-6=16
всего:   2+6+16=24  абитуриента
         ответ  24