Составить программу вычисления значения n! 1,2,3,4,5,6 n=7 используя оператор for

Program z1;
var i,n:byte;
        f:int64;
begin
        f:=1;
        readln(n);
        for i:=1 to n do begin
                f:=f*i
        end;
        writeln(f);
        readln
end.