При каком наибольшем 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.