Решение в файле Krolik.xlsx, в приложениях к ответу.
Задание было решено с помощью "Поиска решений", настройки сохранились в самом файле, и в фотографии которая приложена к ответу.
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
Игрушка
красивая маленькая
радует веселит очаровывает
моя игрушка-(пиши свою игрушку)
игрушка