program PascalGuru;
uses crt;
label 1;
 
procedure exchange(var a,b:real);
var c:real;
begin
c:=a; a:=b; b:=c; end;
 
 
var A:array[1..50] of real;
    i:integer;
 
begin
 
writeln('Vvedite el-ty massiva:');
for i:=1 to 15 do
    begin
    write('A[',i,']= ');
    readln(A[i]);
    end;
 
 
writeln;writeln('Vvedennyi massiv:');
for i:=1 to 15 do write(A[i]:8:2);
 
1:
for i:=2 to 15 do
    if A[i-1]>A[i] then begin exchange(A[i-1],A[i]); goto 1;   end;
 
writeln;writeln;
writeln('Otsortirovannyi massiv:');
for i:=1 to 15 do write(A[i]:8:2);
 
 
readln;
end.