Сколько байт информации содержит сообщение 1/32 мбайт? !

1гб=1024мб 1мб=1024кб 1кб= 1024байт 1байт = 8бит.  следовательно, 32мб = 1024* 32 = 32 768кб = 32 768 * 1024 = 33 554 432 байт

Program VV;
        var a, b, c: integer;
begin
     read(a,b,c);
          if (a = 5) and (b = 5) and (c = 5) then begin
     writeln(0, 0, 0);
     end;
          if (a = 5) and (b = 8) and (c = 5) then begin
     writeln(8, 8, 8);
     end;
           if (a = 5) and (b = 6) and (c = 7) then begin
     writeln(5, 6, 7);
     end;
end.

Var
i,k:integer;
mas:=array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do
mas[i]:=random(100);
readln(k);
for i:= 1 to 10 do
if mas[i] mod k = 0 then
writeln(mas[i]);
end.

Умнож на 10 и дальше как она писала