Задание: сделать функцию определения того, что данное число является факториалом: function reversef (f: integer; var n: integer): boolean (возвращает
true, если f – факториал, n – число, факториалом которого является f.

спасибо

Для "спасибо" тут принято использовать синюю кнопочку.

k:=2; repeat p:=1; for i:=2 to k do p:=p*i; if p<f then Inc(k)Что делает этот фрагмент кода.

что такое k? и что такое p?

Ну вот.... напиши сначала, а потом объясняй каждую строку? Факториалы он считает, начиная от 2! и сравнивает значение с заданным, пока не совпадет или не превысит.

function reversef(f:integer; var n:integer):boolean;var  i,k:integer;  p:longint;begin  if f=1 then begin reversef:=true; n:=1 end  else begin    k:=2;    repeat      p:=1;      for i:=2 to k do p:=p*i;      if p<f then Inc(k)    until p>=f;    if p=f then begin reversef:=true; n:=k end    else begin reversef:=false; n:=-1 end  endend;