Информатика Рекурсивная формула

function G(n:integer):integer;
begin
 if n=1 then G:=1
 else G:=G(n-1)*n
end;

begin
  Writeln(G(5))
end.

Тестовый результат
120