При каком наибольшем n программа выведет на экран сначала 2, а потом 12?

var n, a, b, c: integer;

begin

readln (n) ;

a : = 0; b : = 0;

while n > 0 do begin

a : = a+1;

b : = b + (n mod 100) ;

n : = n div 100;

end;

writeln (a) ; write (b) ;

end.

В переменной a вычисляется количество пар цифр в числе. Так как значение a должно быть равно 2, то число четырехзначное. В переменной b вычисляется сумма чисел, определяемых как остатки от деления на 100. Четырехзначные числа, соответствующие этому требованию - это 1002, 1101 и 1200. Наибольшее из них - 1200.