Найдём общее число символов:
4 * 30 * 50 = 6000 символов
I - объём
I = 4500 байтов = 36000 бит
Чтобы найти количество символов найдем i.
N = 2 в степени i
i = 36000 / 6000 = 6
N = 64
Ответ: 64 символа в алфавите.
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
<span>end.</span>