Program Tukar Nilai (A<=>B) di Pascal

Program Tukar Nilai (A<=>B) di Pascal, seperti itulah judul postingan saya kali ini, bagi teman-teman yang lagi cari-cari silahkan aja nih dibawah ini kodenya :

Uses WinCrt;
var A,B,C:integer;

Begin
      Writeln('Program Menukar Nilai A Menjadi B');
      Writeln('=================================');
Writeln;

         Write('Masukkan Nilai A: ');readln(A);
         Write('Masukkan Nilai B: ');readln(B);
Writeln;
         
         A:=B;
         B:=C;
Writeln;
         Writeln('Hasil A=',A,' B=',B);
End.

Selamat mencoba dan semoga berhasil !!
pengunjung yang baik selalu meninggalkan komentarnya !!