Program Pascal : Putar 3 Bilangan

program tukar_3_bilangan;
{Dibaca 3 bilangan integer a,b,c ditukar ketiga bilangan dan ditampilkan

}
var a,b,c,tampung : integer;

begin
     writeln('');
     writeln('');

     write('Masukan bil pertama : ');
     read(a);

     write('Masukan bil kedua : ');
     read(b);

     write('Masukan bil ketiga : ');
     read(c);

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

     write('Bil ke-1, ke-2, ke-3 : ');
     write(a,',',b,',',c);
end.

Hasil Program