program oken; uses crt; var a: array [1..8] of integer; i,n: integer; begin clrscr; for i:=1 to 8 do begin write('a[',i,']: '); readln(a[i]); end; write('Nhap n: '); readln(n); write('Cac so lon hon ',n,': '); for i:=1 to 8 do if a[i]>n then write(a[i],' '); readln; end.
