Program Faktorial

Program faktorial;
uses wincrt;
var
   n,i:longint;
   f:real;
begin
     readln(n);f:=1;
     for i:=1 to n do
     begin f:=f*i;
     end;
     writeln(n,'faktorial=',f);
     end.

Posted in: