Перевести в другие единицы 151 кбайт== 368640==

151  кбайт=154624  байт=1236992 бит из логики в бит))=46080  байт=45 кбайт

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var l: ='бвгджзйлмнр'.tolist;   var s: =readlnstring;   var p: =pos('.',s);   if p> 0 then s: =s[: p];   var aw: =s.towords;   var i: =1;   while i< =aw.length-1 do begin       var l1: =l.tolist;       foreach var c in l1 do           if not aw[i-1].contains(c) then l.remove(c)           else               if aw[i].contains(c) then l.remove(c);       i+=2       end;   if l.count> 0 then l.println(',')   else writeln('нет звонких согласных, удовлетворяющих условию') end. примеры бодро      шагаем  дрова несем              друзья  товарищи д вместе весело      шагать      по    просторам нет звонких согласных, удовлетворяющих условию     багряный    закат красный    восход й,н,р