Program fh;
type vector=array[1..50] of integer;
var mas:vector;
    n:integer;
    i,KOL:integer;
 
procedure POVTOR(n:integer; a:vector);
procedure ge(n:integer;a: Vector);
var i, j: Integer;
s: Boolean;
begin
for i:=1 to n do
begin  s := true;
for j:=1 to i-1 do
if a[j]=a[i] then s:=false;
if s then begin Write(a[i],'  '); inc(KOL);  end;
end; end;
var i, j,w: Integer;        b:vector;
s: Boolean;  begin w:=0;
for i := 1 to n do   begin s := true;
for j := 1 to n do
if (i<>j) and (a[j]=a[i]) then s:=false;
if not s then
begin inc(w); b[w]:=a[i]; end; end;
ge(w,b); end;
 
begin
KOL:=0;
writeln ('Vvedite razmer massiva A');  read (n);
for i:=1 to n do begin write ('A[',i,']='); readln (mas[i]); end;
write ('Vot vvedennyy vami massiv A- ');
for i:=1 to n do write (mas[i],'  ');   writeln;
{******************************b*************************************************}
write ('Vot POVTORIAYUSIESIA elementi massiva A- '); POVTOR(n,mas);
writeln; writeln ('IX kol-vo= ',KOL);
readln;
end.