Версия для печати темы

uses crt;
var n,p,i:longint;

Begin
  clrscr;
  readln(n);
  p:=1;
  writeln;
  for i:=1 to n do
      p:=p*3*i;
  writeln('p=',p);
  readln;
end.