Как исправить, чтобы работало?

begin

 for var x := 0 to 1 do

   for var y := 0 to 1 do

     for var w := 0 to 1 do

       for var z := 0 to 1 do

         writeln(w, '', x, '', y, '', z);

end.

Объяснение:

Указание переменных для циклов в заголовочном var является устаревшим методом.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.

256= 2^i=2^8следовательно i=8 битов

8*80*32=20480 битов

20480*2=40960 битов=5120 байт=5 килобайт

^ - это я так обозначила степень

i - количество информации(обычно обозначается большой буквой)

* - умножить