bài 1:

program trungbinh;

uses crt;

var A:array[1..100] of integer;

      n,i,t:integer;

begin

     clrscr;

     write('Nhap so luong phan tu N: ');   readln(n);

     t:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(A[i]);

               t:=t+A[i];

          end;

     write('Trung binh cong la: ',t/n:2:2);

     readln;

end.

bài 2:

program tinhtong;

uses crt;

var A:array[1..100] of integer;

      n,i:integer;

      t:longint;

begin

     clrscr;

     write('Nhap so luong phan tu N: ');   readln(n);

     t:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(A[i]);

               t:=t+A[i]*A[i]*A[i];

          end;

     writeln('Tong lap phuong la: ',t);

     readln;

end.

bài 3:

program tinhtong;

uses crt;

var A:array[1..100] of integer;

      n,i:integer;

      t:longint;

begin

     clrscr;

     write('Nhap so luong phan tu N: ');   readln(n);

     t:=0;

     for i:=1 to n do

          begin

               write('Nhap so thu ',i,': ');   readln(A[i]);

               t:=t+A[i]*A[i];

          end;

     write('Tong binh phuong cac so la: ',t);

     readln;

end.

Bài 5:

program chaocacban;

uses crt;

var i:byte;

begin

     clrscr;

     for i:=1 to 5 do

          writeln('Chao ban. Ban co khoe khong?');

     readln;

end.