Menukar Nilai Dua Variabel dengan Variabel Bantu

program penukaran_dengan_variabel_bantu;
uses wincrt;
var
a,b,c:integer;
begin
write('inputkan a = ');readln(a);
write('inputkan b = ');readln(b);
c:=a;
a:=b;
b:=c;
writeln('Setelah ditukar');
writeln('a = ',a);
writeln('b = ',b);
readln;
end.