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

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.