Program Tukar Tiga Bilangan dalam Bahasa Pascal dan C++

Program dalam Bahasa Pascal
program tukar_tiga_bilangan;
{di baca 3 bilangan integer A,B,C ditukar ketiga bilangan dan tampilkan hasilnya}

var
        A,B,C,D:integer;

begin
        write('masukkan bilangan A : '); readln(A);
        write('masukkan bilangan B : '); readln(B);
        write('masukkan bilangan C : '); readln(C);
        D:=A;
        A:=B;
        B:=C;
        C:=D;
        writeln('A = ',A);
        writeln('B = ',B);
        writeln('C = ',C);
end.


Program dalam Bahasa C++
#include <iostream>
using namespace std;

int main() {
int A, B, C, D;

cout<<"Masukkan bilangan A : ";cin>>A;
cout<<"Masukkan bilangan B : ";cin>>B;
cout<<"Masukkan bilangan C : ";cin>>C;
D=A;
A=B;
B=C;
C=D;
cout<<"A : "<<A<<endl;
cout<<"B : "<<B<<endl;
cout<<"C : "<<C;
return 0;
}