2, viết ct nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không , nếu có thì đưa ra màn hình vị trí của phần tử đầu tiên/cuối cùng và đếm xem có bao nhiêu phần tử bằng k or thông báo ko có chú ý: phần tử đầu tiên/phần tử cuối cùng(2 đề nha mn, thay ở chỗ nào nói em vs ạ. giúp em, em cần gấp lắm ạ!!!!!!)

*Phần tử đầu:

uses crt;
var i,n,d,k,kq:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('Nhap n,k: ');readln(n,k);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if k=a[i] then inc(d);
         if (k=a[i])and(d=1) then kq:=i; 
      end;
   if d<>0 then
      begin
         writeln('Phan tu dau: ',kq);
         writeln('So luong: ',d);
      end else writeln('Khong co');
readln
end.

*Phần tử cuối:

uses crt;
var i,n,d,k,kq:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('Nhap n,k: ');readln(n,k);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if k=a[i] then begin inc(d); kq:=i; end;
      end;
   if d<>0 then
      begin
         writeln('Phan tu cuoi: ',kq);
         writeln('So luong: ',d);
      end else writeln('Khong co');
readln
end.