program ChangeArrayElements;

var
myArray: array[1..15] of Integer;
i, temp: Integer;

begin
Randomize;

// Заполняем массив случайными числами от 0 до 50
for i := 1 to 15 do
begin
myArray[i] := Random(51);
end;

// Выводим исходный массив на экран
WriteLn('Исходный массив:');
for i := 1 to 15 do
begin
Write(myArray[i], ' ');
end;

// Меняем местами первый и последний элементы
temp := myArray[1];
myArray[1] := myArray[15];
myArray[15] := temp;

// Меняем местами восьмой и седьмой элементы
temp := myArray[8];
myArray[8] := myArray[7];
myArray[7] := temp;

// Выводим измененный массив на экран
WriteLn;
WriteLn('Измененный массив:');
for i := 1 to 15 do
begin
Write(myArray[i], ' ');
end;

end.