Giúp mình với ạ!!! Tạo mảng A gồm n phần tử ( n<=100) số nguyên. nhập số nguyên k. Tìm phần tử trong mảng A có giá trị bằng k nếu có hãy in ra các phần tử đó

uese crt;

var a:array[1..100] of integer;

i,n,k:integer;

begin

clrscr;

writeln('Nhap so phan tu:'); readln(n);

for i:=1 to n do begin

writeln('nhap so thu',i,':'); readln(a[i]);

end;

writeln('Nhap k='): readln(k);

writeln('cac so = k la:');

for i:=1 to n do

if k=a[i] then writeln('so thu',i,');

readln;

end.

program ct;

uses crt;

var A:array[1..100] of integer;

      k,i,n:integer;

begin clrscr;

   write('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln('Nhap so k: '): readln(k);

   for i:=1 to n do

     if A[i]=k then writeln('Phan tu bang k la: A[',i,']);

readln;

end.

Học tốt!