a)

*for...do

uses crt;

var n,i:integer;

      S:longint;

begin

        clrscr;

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

        S:=0;

        for i:=1 to n do

                S:=S+(i*(i+1));

        write('S= ',s);

        readln;

end.

*while...do

uses crt;

var n,i:integer;

      S:longint;

begin

        clrscr;

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

        S:=0;   i:=1;

       while i<=n do

               begin

                      S:=S+(i*(i+1));

                      i:=i+1;

               end;

        write('S= ',s);

        readln;

end.

b)

*for...do

uses crt;

var n,i:integer;

       S:longint;

begin

       clrscr;

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

       S:=0;

       for i:=1 to n do

               S:=S+2*i;

       write('S= ',s);

       readln;

end.

*while...do

uses crt;

var n,i:integer;

       S:longint;

begin

       clrscr;

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

       S:=0;   i:=1;

       while i<=n do

              begin

                     S:=S+2*i;

                     i:=i+1;

              end;

       write('S= ',s);

       readln;

end.

c)

*for...do

uses crt;

var n,i:integer;

       S:longint;

begin

       clrscr;

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

       S:=0;

       for i:=0 to n do

              S:=S+((2*i)+1);

       write('S= ',s);

       readln;

end.

*while...do

uses crt;

var n,i:integer;

       S:longint;

begin

       clrscr;

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

       S:=0;  i:=0;

       while i<=n do

              begin

                     S:=S+((2*i)+1);

                     i:=i+1;

              end;

       write('S= ',s);

       readln;

end.

a,

For...do:

var n,i: integer; S: real;

begin

 read(n);

 For i:=1 to n do 

  S=S+i*(i+1)

 write(S);

end.

While...do:

var n, i: integer; S: real;

begin

 read(n);

 while i <= n do

  begin 

   S:=S+i*(i+1);

   i:=i+1;

  end;

 write(S);

end.

b, 

For...do:

var n,i: integer; S: real;

begin

 read(n);

 For i:=1 to n do 

 S:=S+2*i;

 write(S);

end.

While...do:

var n,i: integer; S: real;

begin 

 read(n);

 while i <= n do

  begin

    S:=S+2*i;

    i:=i+1;

  end;

 write(S);

end.

c,

For...do:

var n,i: integer; S: real;

begin

 read(n);

 For i:=1 to n do

 S:=S+(2*i+1);

 write(S);

end.

While...do:

var n,i: integer; S: real;

begin

 read(n);

 while i <=n do

  begin

    S:=S+(2*i+1);

    i:=i+1;

  end;

 write(S);

end.