Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Пуск-завершение работы или принудительное
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
По формуле 
или 
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации 
раз
Алг Среднее арифметическое (арг цел a, арг цел b, рез вещ sqrt, рез вещ module)
дано | *честно не знаю как сделать,что даны два числа*
надо | sqrt = (a*a + b*b)/2
module = abs(a*b)/2
нач
| ввод a
| ввод b
| sqrt:=(a*a + b*b)/2
| module:= abs(a*b)/2
| вывод | "Среднее арифметическое квадратов ", sqrt
| вывод | "Среднее арифметическое модулей ", module
кон
