Program Pertukaran #pascal

nyoba2 lagi mengasah algoritma , hhe .. walaupun sederhana ambil hikmahnya aj yak :D

jadi gni soalnya :
Tulislah dua buah nilai-nilai untuk peubah Nama A dan B , lalu mempertukarkan nilai kedua peubah tersebut.
Misalnya, sebelum pertukaran Nama A = Ragil , Nama B = Hadianto , maka setelah pertukaran , nama A = Hadianto  dan nama B = Ragil .

(sumber : Buku Algoritma & Pemrograman dalam bahasa Pascal dan C - Rinaldi Munir ) 

mari kita Jawab :

algoritmanya udah diotak aj yah ..
langsung coba di pascal aj , hhhe

=========================================
Program pertukaran;
uses wincrt;


var
   a,b,c : string[30] ;


begin
     write('a= ') ; readln (a);
     write('b= ') ; readln (b);


     c:= a;
     a:= b;
     b:= c;


     writeln('a = ',a);
     writeln('b = ',b);
end.

========================================