Proceso valor
Escribir  'ingrese el valor de x';
Leer a;
Escribir 'ingrese el valor de y';
Leer  b;
c<-a;
a<-b;
b<-c;
Escribir 'el valor intercambiado de x = ',a,' y el valor de y = ',b;
FinProceso