найдите ошибку в данной программе:
var a,b,y : integer ;
begin
a: =10; b=6;
y: =a / b
writeln(y)
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var A:=MatrGen(6,7,(i,j)->Sin(i+1)+Cos(3*(j+1)));
  A.Println(10,6); Writeln(70*'-');
  var B:=A.ElementsWithIndexes.Where(t->t[1].IsEven and t[2].IsEven)
      .Select(t->t[0]).ToArray;
  B.Println;
  var m:=B.Where(t->t>0).DefaultIfEmpty.Average;
  Writeln('Искомое среднее равно ',m);
  var f:=OpenWrite('MyFile.txt');
  for var i:=0 to A.RowCount-1 do begin
    for var j:=0 to A.ColCount-1 do
      Write(f,A[i,j],' ');
    Writeln(f);
    end;
  Writeln(f);
  for var i:=0 to B.Length-1 do Write(f,B[i],' ');
  f.Close;
end.

Определим общий размер алфавита N - по условию это будет 26 букв и 10 цифр (0123456789), Итого 36 символов.
Количество бит на символ i определим из формулы N=2^i
i=㏒₂N= ㏒₂36= 5,17 
Округляем в большую сторону до 6 бит, потому что 5 бит на символ нам будет не хватать для кодирования 36 символов (2^5=32)
На один номер будет приходиться 5*6= 30 бит информации.
30 бит/8= 3,75 байт. Опять округляем в большую сторону до 4 байт, чтобы в соответствии с условиями задачи получить целое количество байт.
Тогда для кодирования 40 автомобильных номеров нам понадобится: 
40*4=160 байт

ответ: 160 байт