Вася забыл вторую и последнюю цифры пятизначного номера телефона приятеля. какое наибольшее число звонков предстоит сделать васе , если он решил перепробовать комбинации всех забытых цифр , чтобы в результате дозвониться до приятеля?

Мне кажется что сто.

Program a; var sum,n,ymn,sred: real; i: integer; mas : array[1..5]  of  integer;   begin     sum: =0;     ymn: =1;     writeln('укажите пять чисел');       for i: =1 to 5 do         begin             read (mas[i]);   sum: =mas[i]+sum;             ymn: =mas[i]*ymn;             sred: =sum/5;         end; writeln('сумма элементов = ',sum,'   произведение элементов = ',ymn,' среднее арифметическое = ',sred); end.

1. var k, l, m, n: integer; begin     readln(k,l,m,n);     if (k+l+m+n mod 2 = 0) then     writeln('поля одного цвета')   else     writeln('поля разных цветов') end. 2. uses crt; {в зависимости от компилятора эта строчка может оказаться лишней} var question, answer: integer; begin   randomize();   question : = random(100);   writeln(question);   readln(answer);   if (question+answer=100) then     writeln('not bad')   else     writeln('oops. right answer is ', 100-question) end.