программы с циклом FOR (Тема 7)

Program Faktorial;
var a, f,i: integer;
begin
  f := 1;

  write('Введите число для определения факториала: ');
  readln(a);

  for i := 1 to a do begin

  f := f * i;

  end;
  writeln('Факториал числа равен: ', f)
end.