program deytero; uses crt; var a,b,c:integer; BEGIN clrscr; write('Dwse to A='); readln(a); write('Dwse to B='); readln(b); writeln('A+B=',a+b); writeln('A-B=',a-b); readln; END.