Tạo mảng a gồm n (n<=1000) số nguyên, các số có giá trị không vượt quá 255. Đưa ra màn hình các số có giá trị nhỏ hơn số nguyên k cho trước

program oken;
uses crt;
var a: array [1..100] of byte;
    i,k,n: byte;
begin
        clrscr;
        write('Nhap so phan tu cua mang A: '); readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']: '); readln(a[i]);
                end;
        write('Nhap k: '); readln(k);
        write('cac so be hon ',k,' trong mang: ');
        for i:=1 to n do
                if a[i]<k then
                        write(a[i],' ');
        readln;
end.

${Oken}$

uses crt;
var A:array[1..1000] of byte;
    i,k,n:byte;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   write('Nhap k: '); readln(k);
   write('cac so be hon ',k,' trong mang la: ');
   for i:=1 to n do
   if A[i]<k then write(A[i],' ');
   readln
end.