用Pascal编.我是新手.不知怎么编程.高手进.要能辅导的..

用Pascal编.
1.输出20个*号.2.根据输入的自然数n求1+1/2+1/3+1/4+……+1/n的和。
3.将1-1000之间（含1000）所有 能被7整除的数累加起来并输出结果。
4.输入100个数，打印出最大和最小的数。5.求1-1/2+1/3-1/4+……+1/99-1/100
5.求s=1+4+7……+91+94+97+100
能用循环结构的就用循环结构。

1：
program shu;
var a:byte;
begin
for a:=1 to 20 do
write('*');
readln;
end.

2：
program he;
var a,n:integer;
s,b:real;
begin
writeln('n=');
readln(n);
for a:=1 to n do
begin
b:=1/a;
s:=s+b;
end;
writeln('s=',s);
readln;
end.

3：
program hehe;
var a,b:integer;
begin
for a:=1 to 1000 do
if a mod 7=0 then b:=b+a;
writeln('b=',b);
readln;
end.

4：
program xiaoda;
var a:array[1..100] of integer;
b,xiao,da:integer;
begin
for b:=1 to 100 do readln(a[b]);
xiao:=100000; da:=0;
for b:=1 to 100 do
begin
if xiao>a[b] then xiao:=a[b];
if da<a[b] then da:=a[b];
end;
writeln('xiao=',xiao);
writeln('da=',da)；
end.