На вход подается последовательность, оканчивающаяся нулем. Kak определить какое кол-во факториалов в этой последовательности — Pascal(Паскаль)

uses crt;
//функция проверки на факториал
function IsFac(n:integer):boolean;
var i,j:longint;
begin
i:=1;j:=1;
while i<n do
 begin
  j:=j+1;
  i:=i*j;
 end;
if i=n then IsFac:=true
else IsFac:=false;
end;
var a,k:integer;
begin
clrscr;
writeln('Введите последовательность натуральных чисел, окончание 0');
k:=0;
repeat
readln(a);
if IsFac(a) then k:=k+1;
until a=0;
write('Количество факториалов=',k);
readln
end.