我不知道为什么程序没有运行

Question

请告诉我哪里错了，我无法解决我在2个程序中的错误。我尝试在pascal中使用递归。

这个正在运行，但它给了我错误的结果

Project

这个告诉我“错误：非法表达”但我不知道如何解决它

program fatorial;
var
  n: integer;

function f(n: longint): longint;
begin
  if((n=0) or (n=1)) then 
    f:=1 
  else 
    *f:= n*f(n-1);*
  read(f);
end;

begin
  write('n:='); read(n);
  f(n);
  write('result:', f(n));
  readln;
end.

Answer 1

1. 您不应该在函数中阅读gcv()。

2. 您应该编写一个函数而不是使用内部函数{{1}}

Answer 2

第一个问题：

1. 我认为在函数中阅读f并不正确。

但第二个问题：

1. 请勿在命令中使用:=：r:=real;，仅:
2. o和gcv是什么样的变量？您在o之后无法识别gcv和var。
3. 在;
之后加q:=r