Сколько информации несёт сообщение , содержащее 432 символа написано с двоичного алфавита

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.

s = inptu()

for i in range(len(s)):

   if s[i]== 'а' or 'е' or 'ё' or 'и' or 'о' or 'у' or 'ы' or 'э' or 'ю' or 'я':

       g += 1

   if s[i]== 'й' or 'ц' or 'к' or 'н' or 'г' or 'ш' or 'щ' or 'з' or 'х' or 'ф' or 'в' or 'п' or 'р' or 'л' or 'д' or 'ж' or 'ч' or 'с' or 'м' or 'т' or 'б':

       sg += 1

       

   if s[i]== 'А' or 'Е' or 'Ё' or 'И' or 'О' or 'У' or 'Ы' or 'Э' or 'Ю' or 'Я':

       g += 1

   if s[i]== 'Й' or 'Ц' or 'У' or 'Н' or 'Г' or 'Ш' or 'Щ' or 'З' or 'Х' or 'Ф' or 'В' or 'П' or 'Р' or 'Л' or 'Д' or 'Ж' or 'Ч' or 'С' or 'М' or 'Т' or 'Б':

       sg += 1

print('Гласных: ',g)

print('Согласных: ',sg)

Объяснение: