pascal code menukar niali

program TukarNilai;
uses crt;

var
   A,B,C : integer; {deklarasi variabel}

begin
   clrscr;
   writeln('menukar  niali') ;
   write('Masukkan Nilai A : ');
   readln(A);
   write('Masukkan Nilai B : ');
   readln(B);
   writeln;
   {proses tukar Nilai}
   C:=A;
   A:=B;
   B:=C;
   writeln('Setelah ditukar');
   writeln;
   writeln('Nilai A : ',A);
   writeln('Nilai B : ',B);
   readln;
end.