Cách 1 :
uses crt;
var a,b,tong,hieu:longint;
begin
clrscr;
write('Nhap vao A = ');readln(a);
write('Nhap vao B = ');readln(b);
tong := a+b;
hieu := a-b;
writeln('Tong cua hai so A va B la: ',tong);
writeln('Hieu cua hai so A va B la: ',hieu);
readln
end.
Cách 2:
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap vao A = ');readln(a);
write('Nhap vao B = ');readln(b);
writeln('Tong cua hai so A va B la: ',a+b);
writeln('Hieu cua hai so A va B la: ',a-b);
readln
end.
