free pascal的编程问题

①输入n ②s←1，t ← 1 当t≤n ④s ← s * t ⑤t ← t + 1 ⑥输出s的值。应该怎么编写？要详细步骤

program p;
var n,s,t:real;
begin
readln(n);
s:=1;
t:=1;
while (t <= n) do
begin
s := s * t;
t := t + 1;
end;
writeln(s);
end.

var n,s,t:longint;

begin

readln(n);

s:=1;

for t:=1 to n do

begin

s:=s*t;

end;

writeln(s);

end.

题即为求n!（n的阶乘）；

我的比他们的短，哈哈！

var

n,s,t:real; begin readln(n); s:=1; t:=1; while (t <= n) do {当t在满足t<=n这个条件时，执行下面的语句（从begin到end），一旦达到，跳出循环} begin s := s * t; t := t + 1; {题目的要求} end; writeln(s); {输出结果} end.

(好像写的跟前面的朋友一样的）

var n,t,s:integer;

begin

readln(n);

s:=1;

t:=1;

while t<=n do

begin

s:=s*t;

t:=t+1;

end;

write(s);

end.