2.факториал числа.составить программу паскаль.

Var N, F, i :integer;
begin
  writeln('введите число');
  ReadLN(N);
  F:=1;
  for i:=1 to N do F:=F*N;
  write('факториал числа ',N,' = ',F);
end.