từ 1 đến N

program TinhTong;
var
  N, Tong, Buoc: Integer;
begin
  write('N: ');
  readln(N);

  Tong := 0;
  Buoc := 1;

  while Buoc <= N do
  begin
    Tong := Tong + Buoc;
    Buoc := Buoc + 1;
  end;

  writeln('Tong cac buoc tu 1 den ', N, ' la: ', Tong);
  readln;
end.

Gđ

program TimMinMaxTrungBinh;

var

      N, i, max, min, sum: integer;

      a: array[1..50] of integer;

      TB, minTB, maxTB: real;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      sum := 0;

      for i := 1 to N do

      begin

            write('Nhap so thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      max := a[1];

      min := a[1];

      for i := 2 to N do

      begin

            if a[i] > max then

                  max := a[i];

            if a[i] < min then

                  min := a[i];

      end;

      TB := sum / N;

      minTB := TB;

      maxTB := TB;

      for i := 1 to N do

      begin

            if (a[i] < TB) and (a[i] < minTB) then

                  minTB := a[i];

            if (a[i] > TB) and (a[i] > maxTB) then

                  maxTB := a[i];

      end;

      writeln('Gia tri lon nhat la: ', max);

      writeln('Gia tri nho nhat la: ', min);

      writeln('Gia tri trung binh la: ', TB:2:2);

      if minTB = TB then

            writeln('Khong co gia tri nao nho hon TB')

      else

            writeln('Gia tri nho nhat < TB la: ', minTB);

      if maxTB = TB then

            writeln('Khong co gia tri nao lon hon TB')

      else

            writeln('Gia tri lon nhat > TB la: ', maxTB);

      readln;

end.

program TongCacSoChiaHetChoBa;

var

     n, i, sum: integer;

begin

repeat

          Write('Nhap so nguyen n (3 <= n <= 50): ');

          Readln(n);

     until (n >= 3) and (n <= 50);

     sum := 0;

     for i := 3 to n do

     begin

          if i mod 3 = 0 then

          sum := sum + i;

     end;

     WriteLn('Tong cac so chia het cho 3 trong khoang tu 3 den ', n, ': ', sum);

     ReadLn;

end.

program TinhTongChiaHetChoBa;

var

      N, i, Tong: integer;

begin

      writeln('Nhap so nguyen duong N (3 <= N <= 50):');

      readln(N);

      if (N < 3) or (N > 50) then

      begin

            writeln('N khong hop le!');

            readln;

            exit;

      end;

      Tong := 0;

      i := 3;

      while i <= N do

      begin

            if i mod 3 = 0 then

            begin

                  Tong := Tong + i;

            end;

            i := i + 1;

      end;

      writeln('Tong cac so tu 3 den ', N, ' chia het cho 3 la: ', Tong);

      readln;

end.

program TinhTongTich;

var

      N, i, Tong, Tich:integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      i:=1;

      Tong:=0;

      Tich:=1;

      while i<=N do

      begin

            Tong:=Tong+i;

            Tich:=Tich*i;

            i:=i+1;

      end;

      writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);

      writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);

      readln;

end.

program HienThiSoChan;

var

      N, i: integer;

      A: array[1..50] of integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      writeln('Nhap day so A gom ', N, ' phan tu:');

      for i := 1 to N do

      begin

            readln(A[i]);

            if A[i] mod 2 = 0 then

            begin

                  writeln('Phan tu thu ', i, ' la so chan: ', A[i]);

            end;

      end;

      readln;

end.

0,33