*dù để chỉ nói 2 chữ số nhưng mà mình làm chung có số có nhiều chữ số luôn nhé

uses crt;
var s:string;
i:integer;
begin
clrscr;
readln(s);
for i:=length(s) downto 1 do
 write(s[i]);
readln
end. 

uses crt;

var a,b,tg:integer;

BEGIN clrscr;

write('Nhap a: ');

readln(a);

write('Nhap b: ');

readln(b);

if a>b then begin tg:=a;

a:=b; b:=tg;

end;

writeln(a,' ',b);

readln END.