uses crt;

var diem, gioi, kem:array[1..50]of integer;

 ten:array[1 .. 50]of string;

i,i1,i2,n:integer;

begin

 clrscr;

 writeln('nhap so hoc sinh');readln(n);i1=0;i2=0;

for i:=1 to n do begin

 writeln('nhap ten hoc sinh thu ',i);

readln(ten[i]);

writeln('nhap diem hoc sinh thu i');

readln(diem[i]);

if diem[i]>=8 then begin i1:=i1+1;gioi[i1]:=i; end

 else begin i2:=i2+1;kem[i2]:=i; end;

end;

writeln('hoc sinh gioi');

for i:=1 to i1 do

 writeln(ten[gioi[i]]);

 writeln('hoc sinh kem');

for i:=1 to i2 do

 writeln(ten[kem[i]]);

readln;

end.

uses crt;
var i,j,n,dem,dem1:integer;a:array[1..100]of integer;
begin
        dem:=0;
        dem1:=0;
        clrscr;
        write('nhap tong so hoc sinh: ');readln(n);
        for i := 1 to n do
        write('nhap diem tung hoc sinh: ');readln(a[i]);
        for i := 1 to n do
        begin
                if a[i] >= 8 then
                begin
                inc(dem);
                write('so hoc sinh gioi la: ',dem);
                end;
                if a[i]  < 8 then
                begin
                        inc(dem1);
                        write('so hoc sinh kem la: ',dem1);
                end;
        end;
        readln;
end.