Tìm trong dãy số nguyên a1,…an, số nguyên k nằm ở vị trí nào trong dãy. Cần gấp thiệt gấp lun đó mấy bạn

Program timsoK;

uses crt;

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

k,i,n: integer;

begin

clrscr;

writeln (‘Nhap so N : ‘); readln (n);

for i:=1 to n do begin write (‘a[‘,i,’] = ‘); readln (a[i]); end;

writeln (‘K = ‘); readln (k);

for i:=1 to n do if a[i] = k then writeln (‘So ‘,k,’ o vi tri thu ‘,i,’ trong day.’) else writeln (‘Khong tim thay.’);

readln;

end.