var i,b,c:integer;
var a:array[1..15] of integer;
begin
writeln('Введите рост каждого участника поочерёдно:');
for i:=1 to 15 do begin
readln(a[i]);
end;
writeln(a);
for i:=1 to 14 do
for b:=1 to 15-i do
begin
if a[b]>a[b+1] then begin
c:=a[b];
a[b]:=a[b+1];
a[b+1]:=c;
end;
end;
writeln();
writeln('Упорядоченный по возрастанию рост всех участников:');
writeln(a);
end.
