задачка

знакомый попросил помочь решить
вычисление к-3 n!(n!=1*2*3*...4*n)

program Factorial;
var
n,f,i : integer
begin
writeln (загадайте n');
readln(n);
for i: l to n do
f:=f*i;
writeln('f=',f);
readln;
end.

верно ли написана данная программа , если да , то определите значение F при n=3, если нет-запишите исправленный вариант программы.

 

heks, все правильно, но факториал куда удобнее считать с помощью рекурсии:

Code:

program x3;

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

var k:integer;
begin
  readln(k);
  writeln('Factoril ', k, ' = ', fact(k));
end.