Input a(I)

NEXT I

K = 0

FOR I = 1 TO N

F = 0

FOR J = 1 TO N

IF A(I) = A(J) AND I <> J THEN F = 1

NEXT J

IF F = 0 THEN K = K + 1: B(K) = I

NEXT I

IF K = 0 THEN

PRINT "TAKIX HET"

ELSE

PRINT "MASSIV B"

FOR I = 1 TO K

PRINT "B("; I; ")="; B(I);

NEXT I

END IF

END