Belajar Memahami Pascal

::Program sederhana untuk memahami Pascal::

program tukar_angka;
uses
wincrt;
Var
    a,b,c:integer;
begin
     writeln ('masukkan angka sembarang!');
     Write ('A=');readln(a);
     Write ('B=');readln(b);
     c:=b;
     b:=a;
     a:=c;
     writeln ('');
     writeln ('jika ditukar akan menjadi:');
     Writeln ('A=',a);
     Writeln ('B=',b);
End.