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.