Roma_0297

Untitled

Jan 17th, 2012
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.34 KB | None | 0 0
  1. program Project1;
  2. {$APPTYPE CONSOLE}
  3. uses
  4. SysUtils;
  5. var
  6.   arr:array[1..40] of integer;
  7.   n,i,s:integer;
  8. begin
  9.   //reset(input,'danger.in');
  10.   //rewrite(output,'danger.out');
  11.   read(n);
  12.   arr[1]:=0;
  13.   s:=3;
  14.   for i:=2 to n do
  15.     begin
  16.       s:=s*3;
  17.       arr[i]:=arr[i-1]+i-1;
  18.     end;
  19.   write(s-arr[n]);
  20.   readln;
  21.   readln;
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment