Răspunsuri

2014-11-10T23:59:45+02:00
Program p1;
type Natural = 0..MaxInt;
var n:Natural;
function F(n:Natural):Natural; 
 begin  if n<10 then F:=n-1   
 else if n>=10 then F:=F(F(n+2)); 
end;
Begin
write('Introdu n:');readln(n);
writeln('Valoarea functiei este:',F(n));
readln;
End.