Задание

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

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 \\gt 0\) and \(sum / count \\gt maxSum\) then begin
maxSum := sum / count;
maxNumber := number;
end;
end;
writeln\(maxNumber\);
end.