Задание №4. Сложить числа. а) 1100001100(2)+1100011001(2); б) 110010001(2)+1001101(2); в) 111111111001(2)+11111111100101(2); г) 14431(8)+24244(8); д) 2B4C(16)+EA4(16

program ArrayS;

var

 A: array of string;

 i: Integer;

 s: string;

begin

 s := '';

 i := 0;

 WriteLn ('Введите элементы массива через Enter. Пустое значение - окончание ввода:');

 repeat

   ReadLn (s);

   if s <> '' then begin

     Inc (i);

     SetLength (A, i);

     A [i - 1] := s;

   end;

 until s = '';

 for i := Low (A) to High (A) do

   if Length (A [i]) > 4 then

     A [i] := A [High (A)];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := Low (A) to High (A) do

   Write (A [i], ' ');

 ReadLn;

end.