微机的PASCAL循环试题会的进。

能打多少就多少！！写清题号
1、 计算1—1000之间能同时被3和5整除的整数的和。
2、 从键盘输入N，答应下面O图形：当N=4时
1
121
12321
1234321
12321
121
1

3、 一百匹马驮一百块瓦，一批大马可以驮3块，一匹母马可驮2块，小马2匹可驮1。试编程求需要各种马多少批？
4、 输入一个字符串，内有数字和非数字字符。如A123X456Y7SA，302ATB567BC，打印字符串所有连续（指不含非数字字符）的数字所组成的整数，并统计共有多少个数。
5、 一个正整数的各位数字是6，如果把这个个位数字移到首位，所得到的数是原来的4倍，试编程找出满足条件的最小整数。
6、 某书的页码从1开始，小明算了算，共出现了202个数1，试编程求这本书有多少页。
7、 从键盘上输入两个不超过32767的整数，试编程序用竖试加法形式显示计算结果。
例如：输入 123，85
显示
123
+85
…………
208
8、有30个男人女人和小孩同在一家饭馆进餐，共花了50先令，其中男宾3先令，女宾2先令，小孩1先令。试编程求出男人女人小孩各多少人？
什么是PASCAL
谁会加40分呀

第一题:
var i,s:integer;
begin
for i:=1 to 1000 do
if (i mod 3=0)and (i mod 5=0) then s:=s+i;
writeln(s);
end.
第二题:
var n,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do write(j);
if i>1then for h:=i-1 downto 1 do write(h);
end;
for i:=n downto 1 to
begin
for j:=1 to n-1 do write(j);
for h:=n-2 downto 1 do write(h);
end;
end.
第三题:
var a,b,c:integer;
begin
for a:=1 to 100 do
-for b:=1 to 100 do
--for c:=1 to 100 do
---begin
-----if a*3+b*2+c div 2 =100 then
------if a+b+c=100 then begin write(a,' ',b,' ',c);
-------------------------------exit; end;
---end.
end.
第四题：
var s,p:string;
i,h,m,t:integer;
begin
p:='';
readln(s);
h:=length(s);
for i :=1 to h do
if ord(s[i])<90 then p:=p+s[i] else if p<>''