Dùng với số thực:

program bai_giia;
uses crt;
var A,C,B:real;
begin
    clrscr;
    write('Nhap A: ');  readln(A);
    write('Nhap C: ');  readln(C);
    B:=A; A:=C; C:=B;
    write(A:0:4,' ',C:0:4);
    readln;
end.

Ta còn có thể dùng xâu để in cụ thể:

program bai_giia;
uses crt;
var A,C,B:string;
begin
    clrscr;
    write('Nhap A: ');  readln(A);
    write('Nhap C: ');  readln(C);
    B:=A; A:=C; C:=B;
    write(A,' ',C);
    readln;
end.

uses crt;
var a,b,c:real;
begin
 clrscr;
  write('a=');readln(a);
  write('c=');readln(c);
  b:=c;
  c:=a;
  a:=c;
  writeln('a va b duoc hoan doi la');
  writeln('a=',a);
  write('c=',c);
 readln
end.

mong mọi người lưu ý: đây là cách làm xàm của mình trong bài này mong ko ai làm theo

uses crt;
var a,c:real;
begin
 clrscr;
  write('a=');readln(a);
  write('c=');readln(c);
  writeln('a va c duoc hoan doi la');
  writeln('a=',c);
  write('c=',a);
 readln
end.