Răspuns:
program interschimbareContinut;
var ceai, cafea, goala:integer;
begin
write('introdu continut pentru cana cu ceai: '); read(ceai);
write('introdu continut pentru cana cu cafea: '); read(cafea);
goala:=ceai; {am turnat ceaiul in cana goala}
ceai:=cafea; {am turnat cafea in cana de ceai}
cafea:=goala; {am turnat ceaiul din cana goala in cana de cafea}
writeln('Rezultatele interschimarii: ');
writeln('continutul din cana de ceai: ',ceai);
writeln('continutul din cana de cafea: ',cafea);
end.
Explicație: