задача на подпрограммы

uses crt;
function func(e, g: integer): integer;
var
 sum, i: integer;
begin
   sum:= 1;
   for i:= 1 to k do
      sum:= sum*i;
   func:= k*k*k*e/e/e/sum;
end;
var
   k: integer;
begin
  read(k, e);
  writeln(func(k, e));
readkey;
end.

uses crt;
function func(e, g: integer): integer;
var
 fac, i, x: integer;
begin
   fac:= 1;
   x:= 1;
   for i:= 1 to x  do
     x:= x*3;
   for i:= 1 to k do
      fac:= fac*i;
   func:= x/e/e/e/fac;
end;
var
   k: integer;
begin
  read(k, e);
  writeln(func(k, e));
readkey;
end.

var k,i,f:integer;
    p:real;
function factor (i:integer; k:integer; f:integer):integer;
begin
f:=1;
for i:=1 to k do
   f:=f*i;
end;
begin
writeln ('vvod');
read(k);
if (k<>2) and (k<>4) then write ('dannye chislf');
p:=(power(3,k)*power(exp,-3))/factor(i,k,f);
write (p);
end.

p:=(power(3,k)*power(Exp(1),-3))/factor(i,k,f);