Nhập số nguyên x va y sau đó hoán đổi giá trị và tìm x và y ra màn hình:
program hoan_doi;
uses crt;
var x, y, tam: integer;
begin
clrscr;
write('Nhap x=: '); readln(x);
write('Nhap y=: '); readln(y);
tam:=x;
x:=y;
y:=x;
writeln('Sau khi hoan doi: ');
writeln('x=', x);
writeln('y=', y);
readln
end.