Синформатикой ! ( и важно) используя оператор цикла, составить алгоритм вычисления произведения: f=3*6*9*12**3n, где n выводится.

//Pascal
var i,n:integer;
f:word;
begin
f:=1;
readln(n);
for i:=1 to n do
  f:=f*3*i;
writeln(f);
end.