ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,min:integer;
begin
readln (a,b,c);
if b>a and c>a then min:=a;
if c>b and a>b then min:=b;
if b>c and a>c then min:=c;
writeln (min);
end.

Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя: логические выражения (с and/or)
var
a,b,c,d,max:integer;
begin
readln (a,b,c);
if b>a and b>c and b>d then max:=b;
if a>b and a>c and a>d then max:=a;
if c>a and c>d and c>d then max:=c;
if d>a and d>c and d>b then max:=d;
writeln (min);
end.

Var a: array [1..5, 1..5] of integer;
    i, m, j: integer;
begin
     for i := 1 to 5 do
         for j := 1 to 5 do
         begin
              a[i, j] := random(50) - 25;
              writeln('[', i, ',', j, '] => ', a[i, j]);
         end;

     for i := 1 to 5 do
         for j := 1 to 5 do
             if (a[i, j] mod 2 = 0) then a[i, j] := 30;

     writeln();

     for i := 1 to 5 do
         for j := 1 to 5 do
              writeln('[', i, ',', j, '] => ', a[i, j]);
end.

Для второго не понял, как решать ._.

При измерении объемов информации есть определенные нюансы отличающие это измерение от привычных литров и килограммов. Так, чтобы зашифровать символ в популярной кодировке потребуется 8 сигналов (каждый из которых 1 или 0). Отдельно один этот сигнал будет называться бит. А одна такая последовательность, кодирующая один символ будет называться байт. Значит в 1 байте содержится 8 бит. 
Далее в каждой большей единице содержится 1024 меньшие единицы. 
Так,
в 1 кб содержится 1024 байт= 8192 бит
в 1 мб содержится 1024 кб = 1048576 байт = 8388608 бит
в 1 гб  содержится 1024 мб = 1048576 кб = 1073741824 байт = 8589934592 бит