Вопрос Напишите программу в паскале

Читаем количество чисел: read; Пока мы не нашли ни одного числа, претендующего на максимальное, зададим его равным 0 - так, чтобы любое подходящее число (натуральное > 0) оказалось больше него и могло считаться максимальным: max:=0; Дальше в цикле читаем сами числа и каждое из них проверяем: for i:=1 to n do begin read(q); ... {Здесь будем проверять} end; На месте многоточия тебе нужно проверить два условия: 1) (q > max) - очередное число q больше предыдущего И 2) (q mod 10 = 1) - число при делении на 10 дает остаток 1, то есть последняя цифра - единица. Если оба условия соблюдены - запоминаем наше число q как максимальное из встреченных на данный момент: max:=q; После этого цикла выводим число max.

Ты на программера учишся? ..бросай ты это дело, раз нет желания учиться писать самому.