Не советую. У меня 13 основная. Это норм. Фронтальная 5.
Var
a, b: integer;
begin
b := 0;
a := 1;
repeat
b := b + 1;
a := a * 2;
until a = 1024;
writeln(b);
end.
Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2