Какое число будет напечатано в результате выполнения программы: 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 3000 do if f(i mod 100) = 1 then if f(i div 100) =3 then k := k + 1; writeln(k); end.