Помогите пожалуйста^^

var
a,b,c:integer;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
c:=a;
a:=b;
b:=c;
write('A=',a,' ','B=',b,' ','C=',c);
end.