Pascal - Program Tukar Tiga Bilangan

Program Tukar Tiga Bilangan menggunakan Bahasa Pascal

program Tukar_Tiga_Bilangan;
{Dibaca tiga buah bilangan yang bertipe data integer, ditukar ketiga bilangan kemudian tampilkan hasilnya di layar}

        {Deklarasi}
        var
        a, b, c, d:integer;

        begin
                write('Masukkan nilai bilangan A : ');
                readln(a);
                write('Masukkan nilai bilangan B : ');
                readln(b);
                write('Masukkan nilai bilangan C : ');
                readln(c);

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

                writeln('A = ',a,'  B = ',b,'  C = ',c);
end.


HASIL COMPILE :