Pascal编程问题 今天就要!

3,6,7,8,10,11都有了.
程序很容易懂,看看吧.
program no3;
var n,i:longint;
begin
readln(n);
for i:=1 to n do
if (n mod i)=0 then writeln(i);
end.
program no3;
var n,i:longint;
begin
readln(n);
i:=0;
while in then max:=m else max:=n;
while not((max mod m=0)and(max mod n=0)) do
max:=max+1;
writeln(max);
end.
program no8;
var i,k:longint;
begin
k:=0;
for i:=1 to maxlongint do
begin
if (i mod 2=1)and(i mod 3=1)and(i mod 5=1) then
begin
write(i,' ');
k:=k+1;
if k=10 then halt;
end;
end;
end.
program no10;
var s1,s2:string;
i,j,k,n:longint;
begin
readln(s1);
n:=length(s1);
for i:=1 to n do
s2[i]:=s1[n-i+1];
for i:=1 to n do
if not(s2[i]='0') then
begin
writeln(s2[i]);
writeln(i-1);
halt;
end;
end.
program no11;
var n,i,j:real;
begin
read(n);
i:=0;
j:=0;
while n0 do
begin
if trunc(n)=n then i:=i+1;
if n