program bai1;
uses crt;
var i,n: integer;  Ban:array[1..100] of real;  S:longint;
begin
clrscr;
write('Nhap vao so phan tu');
readln(n);
for i:=1 to n do
begin
write('Ban[',i,']=');
readln(Ban[i]);
end;
S:=1;
for i:=1 to n do
begin
if (Ban[i]>=8) then writeln('Ban[',i,'] gioi');
if (Ban[i]>=6.5) and (Ban[i]<8) then writeln('Ban[',i,'] kha');
if (Ban[i]<6.5) then writeln('Ban[',i,'] kem');
end;
readln;
end.

program bai1;
uses crt;
var i,n: integer;  Ban:array[1..100] of real;  S:longint;
begin
clrscr;
write('Nhap vao so phan tu');
readln(n);
for i:=1 to n do
begin
write('Ban[',i,']=');
readln(Ban[i]);
end;
S:=1;
for i:=1 to n do
begin
if (Ban[i]>=8) then writeln('Ban[',i,'] gioi');
if (Ban[i]>=6.5) and (Ban[i]<8) then writeln('Ban[',i,'] kha');
if (Ban[i]<6.5) then writeln('Ban[',i,'] kem');
end;
readln;
end.

dùng biến mảng tính tổng các phần tử chia hết cho 3