[aypinki]

Сообщение от poli-smen

Не забывай использовать операторные скобки begin...end

Код:

  for i:=0 to Length(A) do
  flag:=true;
   for j:=0 to Length(A) do
     if ((A[j]=A[i]) and (j<>i)) then
     flag:=false;
        if flag then
        kol:=kol+1;

помогите пожалуйста(