Pascal : Program menukarkan nilai

Program menukarkan nilai

Program Pertukaran;

uses wincrt;

var
   a, b, temp : integer;

begin
     write ('A : '); read (a);
     write ('B : '); read (b);
     temp := a;
     a    := b;
     b    := temp;
     writeln;
     write ('A : ' , a);
     writeln;
     write ('B : ' , b);

end.

Tags: Pascal, Penukaran nilai,