有几道pascal练习题，急！！！

5 输出：
1 2 3 4

6. 输出：
i=10
t=10
s=65

7 输出：
k=0

8 输出:
max=57

9
求两个自然数m，n的最小公倍数。
Var m，n，i，s：integer；
Begin
readln（m，n）；
i：=1；
s：=m*i；
while___s mod n<>0____do
begin
______inc(i)______;
s：=m*i；
end;
writeln(s);
end.

10
输入一个自然数，求这个自然数的所有约数之和。
Var x ,y,s:integer;
begin
read(x);
s:=0;
for y:=_____1 to x______do
if _____x mod y=0______then
s:=s+y
write(s);
end.

11
求s=1+（1+2）+（1+2+3）+……+（1+2+3+…+n）。
Var s,i,n,sl：integer；
begin
read(n);
s:=0
sl：=0;
for i:=1 to n do
begin
_______sl:=sl+i________;
_______s:=s+sl________;
End;
Writeln(‘s=’,s)
End.

答案仅供参考。

1. 1.000 2.000 3.000 4.000
2. i=10 t=10 s=56
3. k=0