Сколько мбит информации содержит сообщение объемом 2 в 36 степени байт

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

var

x: real;

begin

readln(x);

writeln(round(x));

end.