Program Menukar_Nilai

Program Menukar_Nilai;
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;
  C:=A;
  A:=B;
  B:=C;
  Writeln;
  Writeln('Hasil A=',A,' B=',B);
End.
Outputnya: