急?。。。。。。。。。。?！

1.program zhjh;
var
i,j,x:longint;
begin
for i:=1 to 10 do
for j:=1 to 25 do
for x:=1 to 50 do
if i+j+x=100 then
if i*9+j*4+x*2=100 then
write(i,' ',j,' ',x);
end.

1：program work1;
var
a,b,c:integer;

begin
for a:=1 to 50 do
for b:=1 to 100 do
for c:=1 to 100 do
if (a+b+c*9=100)
and (2*a+4*b+2*c=100)
then writeln(a,' ',b,' ',c);
end.

3：program work3;
var
i:integer;
total,distance:real;

begin
total:=0;
distance:=100;
for i:=1 to 20 do
begin
total:=total+distance;
distance:=distance/2;
end;

writeln(total:0:5);
end.
4、5：這兩道題都是簡(jiǎn)單的邏輯推理
你只需要畫(huà)個(gè)表格
程序只要是簡(jiǎn)單的枚舉就行
6:program work6;
var
i,temp,j:integer;
flag:boolean;

begin
write('2 ');
temp:=1;
i:=3;
while i<100 do
begin
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin
flag:=false;
break;
end
else flag:=true;
if flag then if temp<5 then begin write(i,' '); inc(temp); end
else begin writeln; write(i,' '); temp:=1; end;

inc(i);
end;
end.
7:program lx;
var i,j:integer;
begin
for i:=1 to 3 do
begin
write(' ':5-i);
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
for i:=2 downto 1 do
begin
write(' ':5-i);
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
end.