Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f(x: integer): integer; var m: integer; begin if x < 10 then f : = x else begin m : = f(x div 10); if m < x mod 10 then f : = x mod 10 else f : = m; end; end; begin k : = 0; for i : =
1000 to 9999 do if f(i mod 100) = 1 then if f(i div 100) = f(i mod 100) then k : = k + 1; writeln(k); end.