选择合适的循环语句（for/repeat/while)来完成下面的程序
1) 编写一个程序:读入１０个整数，输出平均数．
2) 编写一个程序:重复读入整数，直到它们的和大于１００，　输出它们的平均数．
3) 编写一个程序:重复读入整数，直到读到的整数等于9999，　输出它们的平均数．
(注：读到9999时，输出前面输入整数的平均数，也就是说：9999不参与求平均数)

求助

1：
var a:array[1..10] of longint;
i,z:longint;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do z:=z+a[i];
writeln(z/10:0:0);
end.

2：
var s,h,i:integer;
begin
while h<=100 do
begin
readln(s)
h:=h+s;
i:=i+1;
end;
writeln(h/i:0:0);
end.

3:
var s,h,i:longint;
begin
while s<>9999 do
begin
readln(s);
if s<>9999 then
begin
h:=h+s;
i:=i+1;
end;
end;
writeln(h/i:0:2);
end.