Определите наибольшее трехзначное значение n, при котором значение F\(n\), будет больше числа 7. Запишите в ответе сначала найденное значение n, а затем значение F\(n\).
Паскаль
function F\(n: integer\): integer;
var m,d: byte;
begin
if n < 10 then F:=n
else begin
m:= F\(n div 10\);
d:= m mod 10;
if m < d then F:=d
else F := m
end
end;