uses crt; var a,b,tong,tich,thuong,hieu:longint; begin clrscr; tong:=0; hieu:=0; tich:=0; thuong:=0; write('a=');readln(a); write('b=');readln(b); tong:=a+b; hieu:=a-b; tich:=a*b; thuong:=a div b; writeln('tong cua hai so la:',tong); writeln('hieu cua hai so la:',hieu); writeln('tich cua hai so la:',tich); writeln('thuong cua hai so la:',thuong); readln; end.
