Заданы два нормализованных числа А=0.100101*2111 иВ=0.101011*210. Вычислить сумму, разность

Program ...;

Var a,b,c,d,e,i:integer;

Begin

A:=0.100101*2111;

B:=0.101011*210;

c:=0.100101+2111;

D:=0.101011+210;

E:=0.100101-2111;

I:=0.101011-210;

Writeln('0.100101*2111',a);

Writeln('0101011*210',b);

Writeln('0.100101+2111',c);

Writeln('0101011+210',d);

Writeln('0.100101-2111',e);

Writeln('0101011-210',i);

End.