progam ct;

uses crt;

var i,S1,S2:integer;

begin clrscr;

     S1:=0; S2:=0;

   for i:=1 to 100 do

      if i mod 2=0 then S1:=S1+i

                            else S2:=S2+i;

   writeln('Tong cac so chan tu 1-100 la: ',S1);

   writeln('Tong cac so le tu 1-100 la: ',S2);

readln;

end.

Học tốt!

program oken;
uses crt;
var le,chan,i: integer;
begin
    clrscr;
    le:=0; chan:=0;
    for i:=1 to 100 do
        if (i mod 2=0) then
            chan:=chan+i
        else 
            le:=le+i;
    writeln('Tong cac so chan tu 1->100: ',chan);
    writeln('Tong cac so le tu 1->100: ',le);
    readln;
end.