Чому дорівнює значення логічного виразу y<5 якщо y=10

Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write(' ',mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write('Среднее арифметическое этих чисел = ',sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i<>0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln('Максимальное число: ',max);
End.

1) общее количество пикселей 32·64 = 2048. Общее количество бит: 8·512 = 4096. 
Значит, на 1 пиксель отводится по 4096:2048 = 2 бита информации; таким образом, максимальноеколичество цветов равно 2² = 4 
P. S. Разумеется, предполагается, что информация хранится в несжатом виде.    2)128х128=16,384 пикселя. 2 кБ памяти = 2,048 байт. Делим объем памяти на количество точек. Получаем 2,048/16,384=0.125 байта на точку, или 1 бит (1/8=0.125). Т.е., только два цвета - черный и белый. 
5. 20х20=400 точек. Каждая по 1 байту (256 цветов = 8 бит). Итого - 400 байт.