Что будет выведено на экране в результате выполнения фрагмента программы a:=5 b:=3 write (z(‘a,’)=‘,’(‘,а+b,’)’)

1) log2(64) = 6, на 1 пиксель нужно 6 бит, а всего 6 * 128 * 256 бит = 6 * 16 * 256 байт = 6*4 Кб = 24 Кб (1 байт = 8 бит, 1 Кб = 1024 байт)
2) 5 бит на пиксель, 5 * 128 * 128 бит = 10 Кб
3) 7 бит на пиксель, 7 * 64 * 128 бит = 7 Кб
4) 8 бит на пиксель, 8 * 64 * 256 бит = 16 Кб
5) 7 бит на пиксель, 7 * 32 * 1024 бит = 28 Кб
6) 6 бит на пиксель, 6 * 1024 * 512 бит = 384 Кб
7) 5 бит на пиксель, 80 Кб
8) 4 бита на пиксель, 32 Кб
9) 3 бита на пиксель, 12 Кб
10) 8 бит на пиксель, 16 Кб
11) 24 Кб = 24 * 1024 байт = 24 * 1024 * 8 бит, на 1 пиксель приходится (24 * 1024 * 8) / (128 * 256) = 6 бит. По формуле N = 2^i получаем 2^6 = 64 возможных цветов.
12) 10 Кб = 10 * 1024 * 8 бит, на 1 пиксель (10 * 1024 * 8) / (128 * 128) = 5 бит на пиксель, 2^5 = 32 цвета.
13) 7 бит на пиксель, 128 цветов
14) 8 бит на пиксель, 256 цветов
15) 7 бит на пиксель, 128 цветов

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.