Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и определить, есть ли в нем одинаковые соседние элементы.В Паскале АВС

Предыдущий
вопрос Следующий
вопрос

program RandomArray;

var
arr: array[1..10] of integer;
i: integer;
isSame: boolean;

begin
Randomize;

// Заполнение массива случайными числами от 0 до 4
for i := 1 to 10 do
arr[i] := Random(5);

// Вывод массива на экран
writeln('Массив:');
for i := 1 to 10 do
write(arr[i], ' ');
writeln;

// Проверка наличия одинаковых соседних элементов
isSame := false;
for i := 1 to 9 do
begin
if arr[i] = arr[i+1] then
begin
isSame := true;
break;
end;
end;

if isSame then
writeln('В массиве есть одинаковые соседние элементы.')
else
writeln('В массиве нет одинаковых соседних элементов.');

end.