Объём видеопамяти равен 5 мб. разрешающие способности дисплея 1024×2048. какое максимальное количество цветов можно использовать

#1 var   mas: array[1..10] of integer;   i,sum: integer;   begin   sum: =0;   for i: =1 to 10 do   begin     read(mas[i]);     sum: =sum+mas[i];   end;   writeln(sum/10);   end. #2 var   mas: array[1..15] of integer;   i,sum: integer;   begin   sum: =0;   for i: =1 to 15 do   begin     read(mas[i]);     sum: =sum+mas[i];   end;   writeln(sum);   end. #3 var   mas: array[1..10] of integer;   i: integer;   begin   for i: =1 to 10 do     read(mas[i]);   for i: =1 to 10 do   begin     mas[i]: =mas[i]+10;     write(mas[i],' ');   end;   end.

//программа на языке паскаль:

program zagadka;

var s: string;

begin

writeln('сидит девица в темнице, а коса на улице.');

readln(s);

while(s < > 'морковь')

do begin

writeln('не угадал. попробуй еще раз');

readln(s);

end;

writeln('правильно. угадал! ');

end.

/*

описание:

выводим пользователю загадку и просим его ввести ответ. пока пользователь не угадает, просим его снова и снова вводить ответ, предварительно написав, что он ошибся. как только мы получаем правильный ответ, программа выводит пояснение пользователю, где пишет, что тот угадал. программа заканчивает свою работу.