Декодировать полученное сообщение 11011101. при кодировании использовался (7, 4) код хэмминга с проверкой четности.

Задача 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.

Процессор - Intel Core i5-3450 Ivy Bridge (3100MHz, LGA1155, L3 6144Kb) - 6000
Материнская плата - ASUS P8Z77-V LX - 3600
Оперативная память - Kingston KVR16N11/8 - 3000
Видеокарта - GIGABYTE GeForce GTX 650 1110Mhz PCI-E 3.0 1024Mb 5000Mhz 128 bit 2xDVI HDMI HDCP - 3600
HDD - Seagate ST1000DM003 - 2100
Блок питания - Thermaltake TR2 RX 750W - 3500
Корпус - Zalman Z12 Plus Black - 2500
Сканер - Epson Perfection V37 - 4500
Монитор - Packard Bell Viseo 223DXbd - 3900
Дешевая клавиатура - 400
Дешевая мышь - 400

Итого 33500 руб. - 1500 на мороженное.