Составить программу расчета факториала натурального числа n (факториал числа n=1*2*…n)- Pascal(Паскаль)

program urii_revange;

uses crt;

var
  n, i, f: integer;

begin
  Repeat
    clrscr;
    writeln('Введите число n');
    readln(n);
  until n > 0;
  f := 1;
  For i := 1 to n do
  begin
    f := f * i;
  end;
  writeln(f);
  readln;

End.