Algorithme permuter_valeur.

Bonjour a tous j'espère que vous vous portiez bien.
Bah en faite,je suis en première année BTS en informatique et développeur d'application.
Mon exercice est le suivant :écrire un algorithme permettant d'échanger les valeurs de deux variables a et b,et quel que soit leur contenu préalable.
Mon problème j'ai faire cet exercice mais je suis pas sûre si mon exercice est juste donc s'il vous plait vérifier le merci.
program echanger_valeur;

type


var
a,b,r:real;


begin
write('donner le nombre a');
read(a);
write('donner le nombre b');
read(b);
r:=a;
write('la valeur de a est',b);
r:=b;
write('la valeur de b est',a);
end.
Je me suis trompé dans le premier message donne ne prenez pas ça en compte mais celui ci OK j'attend votre réponse.