лабораторная работа / 1-5 Сортировка массива / Сортмассив

program Project2;


var
x: array[1..6] of integer;
i,j,buf:integer;
begin
WriteLn('Vvedite massiv');
for i:=1 to 6 do
Read(x[i]);

for j:=1 to 5 do
for i:=1 to 5 do
if x[i]>x[i+1] then
begin
buf:=x[i];
x[i]:=x[i+1];
x[i+1]:=buf;
end;

WriteLn('Result: ');
for i:=1 to 6 do
Write(x[i],' ');

ReadLn(i);
end.