[Pascal] Faktorial - zdrojak - surne

Program faktorial;
var i, y, n, x :integer;
Begin
     writeln('Program na vypocet faktorialu:');
     writeln;
     writeln('Zadan cislo z ktoreho chces faktorial(n!).');
     readln(x);
     n:=1;
     y:=1;
     for i:=1 to x do begin y:=y*n;
                            n:=n+1;
                            end;
     writeln('Faktorial cisla ',x,': (',x,'!) = ',y);
     readln;
end.