Public Pastes
daily pastebin goal
26%
SHARE
TWEET

6

a guest Jan 23rd, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top