Задание

Определите, какое число будет выведено на экран в результате выполнения программы:

var

number, maxNumber, sum, count, digit, n: integer;

maxSum: real;

begin

maxSum := 0;

maxNumber := 0;

for number := 80 to 100 do begin

sum := 0;

count := 0;

n := number;

while n > 0 do begin

digit := n mod 10;

sum := sum + digit;

n := n div 10;

count := count + 1;

end;

if (count > 0) and (sum / count > maxSum) then begin

maxSum := sum / count;

maxNumber := number;

end;

end;

writeln(maxNumber);

end.