uses crt;type matr=array[1..20,1..20] of integer; proc=procedure(m:matr;n:byte);
137 GB = 137000 MB (десятичная)
137 GB = 140288 MB (двоичная)