Viết chương trình Nhập vào 2 số nguyên a,b hoán đổi 2 số đó khi a>b rồi in ra màn hình

uses crt;

var a,b,td: integer;

begin

clrscr;

write (‘nhap a: ‘);  readln (a);

write (‘nhap b: ‘);  readln (b);

if a>b then

begin

td:=a;

a:=b;

b:=td;

end;

writeln (‘gia tri cua a: ‘,a);

writeln (‘gia tri cua b: ‘,b);

readln;

end.