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