В компьютерной лаборатории 100m компьютеров, из них 33m- Opteron, 22m- Pentium 4, 16m- Intel Pentium и 17m- Intel Core i5, где m - основание некоторой системы счисления. В какой системе счисления учитывали компьютеры?
m = ?

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
  assign(f,'1.dat');
  rewrite(f);
    z.country:='Латвия'; z.area:=67.7;
    z.people:=2.6; z.capital:='Рига';
    write(f,z);
    z.country:='Литва'; z.area:=65.2;
    z.people:=3.4; z.capital:='Вильнюс';
    write(f,z);
    z.country:='Польша'; z.area:=313;
    z.people:=34.8; z.capital:='Варшава';
    write(f,z);
    z.country:='Украина'; z.area:=603.7;
    z.people:=50; z.capital:='Киев';
    write(f,z);
    z.country:='Россия'; z.area:=17075.4;
    z.people:=139; z.capital:='Москва';
    write(f,z);
  Close(f);
  assign(f,'1.dat');
  reset(f);
  read(f,t);
  while not(eof(f)) do
    begin
      read(f,z);  
      if t.people/t.area < z.people/z.area then t:=z;
    end;
  close(f);
  writeln('Cтранa с наибольшей плотностью населения:');
  writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.

#arr = [*map(int, input().split(' 0')[0].split())]  если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйте

arr = []

while 1:

   tmp = int(input())

   if tmp != 0:  # Читаем сколько угодно чисел пока не будет ноль

       arr.append(tmp)

   else:

       break

s = 0  # сумма двузначных чисел

k = 0  # количество двузначных чисел

for i in arr:

   if 10 <= i <= 99:  # итерируемся по циклу и если число двузначное

       s += i  # то прибавляем его к сумме

       k += 1  # счетчик двузначный чисел увеличиваем на один

print(s/k) if k > 0 else print('NO') #если количество двузначных > 0 то выводим среднее арифметическое s/k, если нет то выводим NO