program Project4;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,j,n,l,temp:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
for i:=2 to n do begin
for j:=n downto i do begin
if a[j-1]>a[j] then begin
temp:=a[j-1];
a[j-1]:=a[j];
a[j]:=temp;
for l:=1 to n do
write(' ',a[l]);writeln;end;end;end;
readln;
end.