текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов.каков информационный объём тексто?

результате информационный объем сообщения стал равен 2 Мбайта. Найдите кол-во символов в сообщении

Ошибка где то в присвоение, т.к на выходе все время получаю 0.
Вопрос: В чем же ошибка?
----------------------------------------
Program test;
var a, b, c, d: integer;
begin
writeln ('Enter A');
read (a);
writeln ('Enter B');
read (b);
writeln ('Enter C');
read (c);
if (a<b) and (a<c) then a:=d;
if (b<a) and (b<c) then b:=d;
if (c<a) and (c<b) then c:=d;
writeln ('Complete');
writeln ('Your number is', d);
end.

найти , решение, ответ,просто я плохо в информатике разбираюсь.