用pascal 语句 答题

program n;
var
s,n:integer;
begin
read(n);
s:=1;
for i:=1 to n do
s:=s*n;
writeln(s);
end.

program aa;
var i:integer;
a:qword;
begin
read(i);
a:=1;
repeat
a:=a*i;
i:=i-1;
until i=0;
writeln(a);
end.

这个要用高精度
自己先编写个高精度乘法计算的函数 计算个一千位大概就可以了
然后循环相乘。。。。