uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
writeln('gia tri truoc khi doi cua a la: ',a);
writeln('gia tri truoc khi doi cua b la: ',b);
a:=a-b;
b:=b+a;
a:=b-a;
writeln('gia tri sau khi doi cua a la: ',a);
writeln('gia tri sau khi doi cua b la: ',b);
readln;
end.