Що може бути маркером
у списку?​

бег - баг - шаг

море - горе - гора - пора - пара - кара - каша - даша - душа - суша

миг - маг - мак - чак   - чек - век

бант - кант   - карт - корт - кора - коса

шар - пар - паб - раб - руб - куб

муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит