Задание 
   Определите наименьшее число n такое, что при вызове F\(n\) второе выведенное число будет больше числа 51. Запишите в ответе сначала найденное значение n, а затем значение F\(n\).
Паскаль
function f\(n: integer\): integer;
var d:integer;
begin
writeln\(N\);
if n > 0   then begin
d := n mod   10 +
F\(n div   10\);
writeln\( d \);
F := d
end
else F:= 0;
end;