Вычислить y= 3k!+t! с помощью функции.
Вот код
var y, k, t:integer;
function fact(k, t:integer):integer;
begin
if k=1 then
fact:=1
else fact:=fact(3*k-1)*k;
begin
if t=1 then
fact:=1
else fact:=fact(t-1)*t;
end;
end;
begin
write('vvedi chislo:');
readln(k, t);
y:= fact(3*(fact(k)))+fact(t);
writeln('otvet', y);
readln;
end.
можете помочь разобраться почему в 6 строке выдает ошибку?

var y, k, t:integer;function fact(n:integer):integer;beginif n=1 thenfact:=1else fact:=n*fact(n-1);end;beginwrite('vvedi chislo:');readln(k, t);y:= 3*fact(k)+fact(t);writeln('otvet ', y);readln;end.