составить программу обмена значениями трех переменных величин: a,b,c. на языке Pascal

VarA,B,C,D:integer;BeginWrite('a = ');Read(a);Write('b = ');Read(b);Write('c = ');Read(c);d:=a;a:=b;b:=c;c:=d;WriteLn;WriteLn('a = ',a);WriteLn('b = ',b);WriteLn('c = ',c);End.