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.
