viết chương trình nhập hai số, đổi giá trị hai số rồi in ra hai số.

Program Doi_Gia_Tri;

uses crt;

var a, b, tam:real;

Begin

clrscr;    

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

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

writeln('Truoc khi doi a =',a,' va b= ',b);

readln;    

tam:=a;    

a:=b;    

b:=tam;    

writeln('Sau khi doi a =',a,' va b= ',b);    

readln;

end.