Выполните сложение чисел.
а) 11101010102+101110012;
б) 101110102+100101002.

выполните вычитание чисел.
а) 11002-1010100012;
б) 1010012-111102.

можно с расчетами , умоляю только решите

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.