Вдвоичной системе 111001011: 10001 умножить на 11011-11101

а) 1110_2  

б) -11010_2  

в) -10111_2  

г) 10000_2  

д) -11010_2  

е) -100100_2

11001000001011010 вроде так

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.