program lab_____5; uses crt; const n=10; var a:array [1..n] of integer; i:integer; k:integer; buf:integer; begin writeln ('sortirovka massiva.'); write ('vvedite v odnoy stroke',n,'chelyh chisel'); writeln ('i nashmite '); for k:=1 to n-1 do read (a[k]); readln (a[n]); writeln ('sortirovka.'); for i:=1 to n-1 do begin for k:=1 to n-1 do begin if a[k]>a[k+1] then begin buf:=a[k]; a[k]:=a[k+1]; a[k+1]:=buf; end; end; for k:=1 to n do write (a[k],' '); writeln; end; writeln; writeln ('massiv otsortirovan.'); for k:=1 to n do write (a[k],' '); readln; readln; end.