Автоматическая камера производит растровые изображения размером
128×64 пикселей. Для кодирования цвета каждого пикселя используется
одинаковое количество бит, коды пикселей записываются в файл один за
другим без промежутков. Объём файла с изображением не может
превышать 2 Кбайт без учёта размера заголовка файла. Какое
максимальное количество цветов можно использовать в палитре?

Сам справишься

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.