var   a:array[1..15000] of longint;
i,n,j,k,flag,b,m:longint;
 k1 :longint;
begin
  k:=0;
  read(n);
read(a[1]);k:=1;
if n>1 then begin
for i:=2 to n do begin
read(b);
flag:=0;
j:=1;
repeat
if a[j]=b then begin flag:=1; end;
j:=j+1;
until (flag=1) or (j>k);
if flag=0 then begin k:=k+1; a[k]:=b;end;
end; end;
read(m);
for i:=1 to m do begin
read(b);
j:=1;    flag:=0;
repeat
if a[j]=b then begin flag:=1; k1:=k1+1;end;
j:=j+1;
until (flag=1) or (j>n);
end;
  writeln(k1);
end.
Тайм лимитед на 8 тесте. Что не так?? Где я что прохлопала.... Прохелпите мне, плиз

Могу предположить, что программа выполняется слишком долго.У меня такая же штука: на сотые секунды больше выполняется