Ответ:
создаешь переменную допустим а = 1001
запускаешь цикл на проверку элементов массива и в цикле условие
если массив[i] >=0 и массив[i] mod 10 <> 3 и mass[i]<a то а = массив[i]
конец цикла
а потом после цикла условие если а = 1001 то вывожишь Не найдено
иначе
выводишь а
УРУГВАЙ ,ПАРАГВАЙ,АФГАНИСТАН
128=2^7 значит 7 бит весит 1 символ
80*60=4800 символов
4800*7=33600 бит=4200 байт=4,1 килобайт
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)
.JoinIntoString('').Println
end.
<h2>А роза упала на лапу Азора</h2><h2>АА розаа упаалаа наа лаапу ААзораа</h2>