Задача:Даны переменные А и В.Требуется обменять их значениями,т.е. переменная А должна получить значение В,а В-значение А

Var a,b,c,d:integer;
begin writeln(Введите а);
readln(a);
writeln(Введите b);
readln(b);
c:=a;
d:=b;
a:=d;
b:=c;
writeln(a:=,a);
writeln(b:=,b);
end.