Напишите программу алгоритм который по введенному числу n(1_< __< 10) вычислит и напечатает значение n! =1*2*3**n

Program test;
Var
n, i,a:integer;
Begin
Write( 'введите число: ');
readln(n);
for i:=1 to n do a:=a*n;
write(n,'!= ',a);
End.