Tukar Nilai 2 Bilangan

program Tukar_nilai_2_bilangan;
{I.S : Masukan Nilai pertama dan kedua}
{F.S : Nilai pertama dan kedua ditukar dan di tampilkan}

uses crt;
var
   A, B, Temp        : integer;

begin
//nilai pertama dan kedua di inputkan
write('Masukan nilai pertama : ');
readln(A);
write('Masukan nilai kedua   : ');
readln(B);
writeln();

//algoritma pertukaran nilai
Temp := A;
A    := B;
B    := Temp;

//nilai pertama dan kedua yang sudah di tukar di tampilkan
writeln('Nilai pertama : ',A);
writeln('Nilai kedua   : ',B);

readkey();

end.