С рулетки размеры бруса (220 см х 11 см х 10 см) измерили с точностью 1 см. Определите его объём. Запишите ответ с учётом точности полученного результата полное решение!

) В числе не меньше двух цифр, которые меньше шести.
Следовательно, в числе две цифры в диапазоне от 0 до 5, а третья может быть и больше.
2) В числе не меньше двух четных цифр.
Следовательно, в числе одно цифра может быть и нечетной.
3) Если число должно быть наибольшим, то его старшая цифра должна быть не меньше остальных. Учитывая 1) и 2) выбираем в качестве старшей цифры девятку. Тогда две оставшиеся меньше шести и обе четные.
4) С учетом того, что число должно быть наибольшим, выберем цифры четыре.

ответ: 944

Var
  a: integer;  //a - вводимое число
  n, s: integer;  //n- количество введенных чисел, s - сумма этих чисел

begin
  n:= 0;  //обнуляем счетчик
  s:= 0;
  a:= 1;  {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
  while a <> 0 do
  begin
    writeln('Введите целое число');
    readln(a);
    if a <> 0 then  //Чтобы при подсчете среднего арифметического не учитывался 0
    begin
      n:= n + 1;
      s:= s + a;
    end;
  end;
  writeln('Среднее арифметическое введенных чисел:  ', s / n);
end.