Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×256 и палитрой из 65536 цветов.

640*256 =163840 пикс.
1 пикс. = 65536 вариантов = 2^16
Таким образом для кодирования 1 пикс. необходимо 16 бит.
163840 * 16 = 2621440 бит = 2621440 / 8 / 1024 кБ = 320 кБ

{1}
var
    i, n, s: integer;

begin
    i := 0;
    writeln('Введите последовательность чисел,оканчивающихся отрицательным числом');
    repeat
        readln(n);
        if n > 0 then begin
            s := s + n;
            i := i + 1;
        end;
    until n < 0;
    writeln(s / i);
end.

{2}

var
    i, n: integer;

begin
    i := 0;
    writeln('Введите последовательность чисел,оканчивающихся 0');
    repeat
        readln(n);
        if n <> 0 then
            i := i + 1;
    until n = 0;
    writeln(i);
end.

1. Определим размер записи.
Трехзначное десятичное число - это число от 100 до 999. Таких чисел может быть 900. Поскольку 2⁹<900<2¹⁰, то для кодирования нам потребуется 10 бит. По условию числа кодируются неким целым число байт. В байте 8 бит, поэтому для представления 10 бит потребуется 2 байта.
Итого, длина записи составит 12+2=14 байт.
2. Определим возможное количество записей.
2 Кбайта = 2×1024 байта = 2048 байт.
Количество записей равно 2048/14 =146.3 записи.
Отбрасывая дробную часть, получим 146 записей.