问几个关于free pascal的题目，急急急！（完成几道是几道）

1:未知图形
2:var
a,n:longint;
begin
readln(n);
while n<>1 do
begin
inc(a);
if n mod 2<>0 then
n:=3*n+1
else n:=n div 2;
end;
writeln(a);
end.
3:var
a:longint;
begin
for a:=100 to 200 do
begin
if (a mod 3=2)and(a mod 5=3)and(a mod 7=5)then
begin
writeln(a);
break;
end;
end;
end.
4:var
a,b:longint;
s:real;
begin
s:=400*18;
a:=400;
b:=0;
while s<>5940 do
begin
s:=s-18+13.5;
dec(a);
inc(b);
end;
writeln(a,' ',b);
end.
5:var
s,a:longint;
begin
for a:=1000 to 9999 do
begin
if a mod 5=0 then
s:=s+a;
end;
writeln(s);
end.
7:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if (a+b+c)*11=s then
writeln(s);
end;
end.
8:var
s,a,b,c:longint;
begin
for s:=100 to 999 do
begin
a:=s mod 10;
b:=s div 10 mod 10;
c:=s div 100;
if a*a*a+b*b*b+c*c*c=s then
writeln(s);
end;
end.
13.(1):var
s:longint;
a:longint;
begin
a:=2;
while a<>1002 do
begin
a:=a+10;
s:=s+a;
end;
writeln(s);
end.
13.(2)[结果保留了10位小数:var
s:real;
n,a:longint;
begin
readln(n);
a:=1;
while a<>n do
begin
inc(a);
if a mod 2=0 then
s:=s+1/a
else
s:=s-1/a;
end;
writeln(1-s:0:10);
end.
14:var
p:boolean;
a,b,c:longint;
begin
p:=true;
for a:=2 to 100 do
begin
for b:=2 to trunc(sqrt(a))do
begin
if a mod b=0 then
p:=false;
end;
if p then
begin
inc(c);
write(a,' ');
end;
if c=5 then
begin
writeln;
c:=0;
end;
p:=true;
end;
end.

1、输出如下图形。

2、编写一程序，验证角谷猜想。所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。"
3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
4、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.
5、求出能被5整除的所有四位数的和。
6、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256
7、有一个三位数，它的各位数字之和的11倍恰好等于自身，请编程求出这个三位数。
8、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。
9、编程序打印出下列图案：
平行四边形 等腰三解形 菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
10、编程打印出如下图案：
1
222
33333
4444444
555555555
11、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元； 第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。
12、某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。
13、(1)s=12+22+32……+1002,
(2) 求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N项的和)
14、 输出100 以内的全部素数，要求每行显示5 个。
15、某登山队员第一天登上山峰高度的一半又24米; 第二天登上余下高度的一半又24米；每天均如此。到第七天,距山顶还剩91米。求此山峰的高度?
16、百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。
17、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?
18、猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早上又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上想再吃时，只剩下一个桃子了。求第一天共摘了多少桃子。
19、A、B、C三人进入决赛，赛前A说：“B和C得第二，我得第一”；B说：“我进入前两名，丙得第三名”；C说：“A不是第二，B不是第一”。比赛产生了一、二、三名，比赛结果显示：获得第一的选手全说对了，获得第二的选手说对了一句，获得第三的选手全说错了。编程求出A、B、C三名选手的名次。
20、赵、钱、孙、李、周五人围着一张圆桌吃饭。饭后，周回忆说：“吃饭时，赵坐在钱旁边，钱的左边是孙或李”；李回忆说：“钱坐在孙左边，我挨着孙坐”。结果他们一句也没有说对。请问，他们在怎样坐的？

Private Sub Command1_Click()
Dim Num As Long
Dim I As Integer

Randomize
Num = Int(Rnd * 10000)
Picture1.Cls
Picture1.Print "原始数据为：" & Num
Picture1.Print "以下是计算结果："
I = 0
Do While Num <> 1
If Num Mod 2 = 0 Then
Num = Num / 2
Else
Num = Num * 3 + 1
End If
Picture1.Print Num;
I = I + 1
If I Mod 10 = 0 Then Picture1.Print
Loop
End Sub