Advertisement
Guest User

6

a guest
Jan 23rd, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. program Project1;
  2. function AAA(n: integer):int32;
  3. begin
  4. if (n = 1) then
  5. AAA:= 1
  6. else AAA:= AAA(n-1) * n;
  7. end;
  8. begin
  9. write(AAA(2) + AAA(5));
  10. readln();
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement