/* Computing factorial of the user input number N, and store it in variable Fak
   N is read from the input stream; Fak is written to the output 
   Fak is 1 * 2 * ... * (N-1) * N *) */


program 
 a: integer;
 foo: real;
 
body
 a:=17;
 foo:=a*2+8;
 write foo;
end program


