если сможете решить оба верно, то будет лучший.
На бесконечном поле есть горизонтальная и вертикальная стены. Левый конец горизонтальной стены соединён с нижним концом вертикальной стены. Длины стен неизвестны. В каждой стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной непосредственно в углу над горизонтальной стеной и справа от вертикальной стены.
Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно выше горизонтальной стены и правее вертикальной стены, кроме клетки, в которой находится Робот перед выполнением программы.

Дано:
Палитра 256 цветов.
Размер 10x10 пикселей.

Найти:
Каков информационный объём этого файла?

Решение:
Вначале определяем глубину цвета по формуле
2^i = N. 2^i = 256 по условию, отсюда i = 8 бит.

Вычисляем общее количество пикселей в картинке:
10*10 = 100 пикселей

Информационный объём равен
100 пикселей * 8 бит = 800 бит.



Дано:
разрешающая экрана 1440*900 точек
глубина цвета 32 бит

Найти:
объём графического изображения

Решение:
Вначале вычисляем общее количество пикселей в картинке:
1440 * 900 = 1 296 000 пикселей.

Информационный объем вычисляется по формуле
Объем = количество пикселей * глубина цвета
Объем = 1 296 000 * 32 бит = 41 472 000 бит
Делим на 8 бит в байте, 41 472 000 / 8 = 5 184 000 байт

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.