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.

1)

uses crt;
var n,i:longint; s:real;
begin
clrscr;
   repeat write('n=');readln(n); until n<=100;
   for i:=1 to n do s:=s+i*i;
   writeln('S= ',s:0:0);
readln
end.

2)

uses crt;
var n,i:longint; P:real;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do p:=p+1/i;
   writeln('P= ',p);
readln
end.

3)

uses crt;
var n,i:longint; P:real;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do p:=p+i*(i+1);
   writeln('P= ',p:0:2);
readln
end.

4)

uses crt;
var n,t,t1,i:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do begin if i mod 2=1 then inc(t,i);  if i mod 3=0 then inc(t1,i); end;
   writeln('Tong cac so le tu 1->n la: ',t);
   writeln('Tong cac so ci het co 3 tu 1->n la: ',t1);
readln
end.