uses crt;
var n,i,tong:integer;
        a:array[1..100] of integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        tong:=0;
        for i:=1 to n do
        if a[i] mod 2=1 then tong:=tong+a[i];
        writeln('Tong cac so le tu 1 den n la:',tong);
        tong:=0;
        for i:=1 to n do
                if a[i] mod 3=0 then
                tong:=tong+a[i];
        write('Tong cac so chia het cho 3 tu 1 den n la:',tong);
        readln
END.

1. 

program phuongt;

uses crt;

  var s, i, n: integer;

begin

          clrscr;

          write('Nhap n (n<=100) = '); readln(n);

          if n>100 then write('Nhap sai') else

          begin

                   s:=0;

                   for i:=1 to n do s:=s+i*i;

                   write('S = ', s);

          end;

          readln

end.

2.

program phuongt;

uses crt;

  var p, i, n: integer;

begin

          clrscr;

          write('Nhap n = '); readln(n);

          p:=0;

          for i:=1 to n do p:=p+1/i;

          write('P = ', p);

          readln

end.

3.

program phuongt;

uses crt;

  var n, r, i, j: integer;

begin

          clrscr;

          write('Nhap n = '); readln(n);

          r:=0;

          for i:=1 to n do

                      for j:=2 to n+1 do r:=r+i*j;

          write('R = ', r);

          readln

end.

4.

program phuongt;

uses crt;

  var i, s, c, n, j: integer;

begin

          clrscr;

          write('Nhap n nguyen duong = '); readln(n);

          if n<0 then write('Nhap sai') else

          begin

                    s:=0; c:=0;

                    for i:=1 to n do

                    begin

                                 if i mod 2 = 1 then s:=s+i;

                                 if i mod 3 = 0 then c:=c+i;

                    end;

                    writeln('S = ', s);

                    write('C = ', c);

          end;

          readln

end.