Делфи(Консоль) и C# - Подпрограммы(Вероятность выпадения «счастливого билетика» )

[Doublefaced]

Написать подпрограмму, которая определяет вероятность выпадения «счастливого билетика» в заданном диапазоне.

Помогите с задачей. Можно писать Делфи(Консоль) и C#.

[Serge_Bliznykov]

считаем количество счастливых билетиков в заданном диапазоне, делим полученное число на количество всех значений диапазона, полученный ответ и будет вероятностью.

NB. проверка билета на "счастливость" здесь на форуме была. Рулите поиском...

[Doublefaced]

var b:array[1..6] of integer;
     i,n,m,k,c:longint;
 
begin
 clrscr;
c:=0;
 writeln('Vvedite promezhutok ot n do m ');
 readln(n,m);
 for i:=n to m do
    begin
     k:=i;
      for j:=1 to 6 do
        begin
           b[i]:=k mod 10;
           k:=k div 10;
         end;
    if b[1]+b[2]+b[3]=b[4]+b[5]+b[6] then 
    c:=c+1;
    end;
writeln('Veroyatnost = ',(c*100)/(m-n),' %');
 
end.

помогите сделать подпрограммой!

[Gongled]

Так?

program pr;
uses CRT;
const
  z = 6;
type
  ar2 = array[1..z] of integer;
var
  ch : real;
  n, m : longint;

procedure chance_succ(n, m : longint; var result : real);
var
  b : ar2;
  i, tmp : longint;
  count : integer;
  j : byte;
begin
  count := 0;
  for i:=n to m do
  begin
    tmp := i;
    for j:=1 to z do
    begin
      b[j] := tmp mod 10;
      tmp := tmp div 10;
    end;
  if (b[1]+b[2]+b[3]) = (b[4]+b[5]+b[6]) then inc(count);
  end;

  result := (count*100)/(m-n);

end;

begin
clrscr;

write('Введите промежуток от n до m: ');
read(n,m);
chance_succ(n,m,ch);

write('Вероятность: ',ch:4:2,'%');
readln;
end.