Bài 6 :

program tinh ;
uses crt;
var a : array[1..100] of real;
    i, n : integer;
    tb : real;
begin
clrscr;
tb := 0;
write('nhap vao tong so hoc sinh  :');readln(n);
for i := 1 to n do 
begin
write('Diem hoc sinh  ', i ,' : ' );readln(a[i]);
tb := tb + a[i];
end; 
writeln(' Trung binh cong diem thi cua ', n ,' hoc sinh la :', (tb/ n):4:1);
if tb >= 5 then writeln(' Dat')
else writeln(' Khong dat ');
readln
end.

Bài 7 :

program tinh;
uses crt;
var i, n, m  : integer;
s : real;
begin
clrscr;
s:= 0;
write('nhap so n :');readln(n);
write(' nhap so m :'); readln( m);
write('cac so chia het cho', m ,'tu 1 den ', n ,' la :');
for i := 1 to n do
if i mod m = 0 then
begin
write(i:4);
s := s + sqrt(i);
end;
writeln;
writeln('tong can bac hai  la :', s: 3: 2);
readln
end.