Вывод Факториала

//Вывод факториала.
var
 b, a, i :Integer;
 fix :Int64;
label 1,2;
Begin
readln(b);
a:=1;
repeat
a:=a+1;
fix:=1;
for i:= 1 to a do
 begin
 fix:=fix*i;
 end;
writeln(fix);
until(a=b);
end.