procedure barier(a:mas; n:integer);
var q,t,i:integer;
begin
t:=0;
q:=0;
for i:= 2 to N do
inc(t);
inc(q);
if a[i-1]>a[i] then
begin
a[0]:= a[i];
j:= i-1;
wrile a[j]>a[0] do
begin
a[j+1]:= a[j];
j:= j-1;
end;
a[j+1]:= a[0];
end;
begin
Write('Sravnenia= ');
Writeln(t);
Write('Perestanovok= ');
Writeln(q);
end;
end;