Program Chuong_trinh_so;

uses Crt;

var i,S: integer;

begin

Clrscr;

a) For i:=1 to 100 do writeln(i);

Readln;

end.

b)For i:=1 to 100 do  If(i mod 2=0) then writeln(i);

Readln;

end.

c)S:=S+1;

For i:=1 to 100 do

begin

If (i mod 2=0) then i:=i+2;

S:=S+i;

end;

Readln;

end.

program VCT;

uses crt;

var i,T,d: byte;

      TBC: real;

Begin

         clrscr;

         write('a) Cac so tu 1 den 100: ');

         for i:=1 to 100 write(i,'  ');

         writeln;

         write('b) Cac so chan tu 1 den 100: ');

         for i:=1 to 100 do

             if i mod 2=0 then write(i,'  ');

         writeln;

         for i:=1 to 100 do

             if i mod 2=0 the T:=T+i;

         write('c) Tong cac so chan tu 1 den 100 = ',T);

         writeln;

         for i:=1 to 100 do 

             if i mod 2=0 then

             begin

                  inc(d);

                  TBC:=TBC+i;

             end;

         write('d) TBC cac so chan tu 1 den 100 = ',TBC/d:2:2);

         readln

End.