program HSG;
uses crt;
var HS:array[1..100] of real;
soHS,i:integer;
begin clrscr;
write('Nhap so hoc sinh : '); readln(soHS);
for i:=1 to soHS do
     begin
     write('Diem cua Hs ',i,' la : '); readln (HS[i]);
     end;
for i:=1 to soHS do
     if (HS[i] > 7) then writeln('Hoc Sinh ',i);
end.