uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so hs:');readln(n);
for i:=1 to n do
begin
 write('diem tin cua ban thu ',i,' la:');
 readln(a[i]);
end;
write('cac ban co diem tin tren 9 la:');
for i:=1 to n do
if a[i] > 9 then writeln('ban thu',i);
readln;
end.

uses crt;
 var a : array[1..100] of real  ;
  n , i : integer ;
  begin
   clrscr;
    write('Nhap so luong hoc sinh: ');
     readln(n);
for i := 1 to n do
     begin
    write('Nhap diem cua hoc sinh thu ',i,' bang: ');
    readln(a[i]);
     end ;
 write('Nhung ban co diem tren 9 la: ');
 for i := 1 to n do
  if a[i] > 9 then write(a[i]:3:2,' ');
   writeln ;
  writeln('Lan luot o cac vi tri :');
  for i := 1 to n do
    if a[i]>9 then write(i,' ');
    end .