Bài 1:
program bai_giai;
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
a:=a+b;
b:=a+b;
a:=b-a;
b:=b-a-a;
write(a,' ',b);
readln;
end.
Bài 2:
program bai_giai;
uses crt;
var n,a:integer;
begin
clrscr;
readln(n);
write(n,' ');
while n<>0 do
begin
a:=n mod 10;
write(a);
n:=n div 10;
end;
readln;
end.