3 beginfig(1);%http://serge.mehl.free.fr/anx/pgcd_diff_scratch.html
4 draw Presse("\opSimple{espace}");
5 draw Demander("Donner $a$");
6 draw MettreVar("a","\opCap{réponse}");
7 draw Demander("Donner $b$");
8 draw MettreVar("b","\opCap{réponse}");
9 draw Si1("\opOp{$\opVar{$a$}=\opVar{$b$}$}");
10 draw MettreVar("pgcd","\opVar{$a$}");
12 draw MettreVar("x","\opVar{$a$}");
13 draw MettreVar("y","\opVar{$b$}");
14 draw MettreVar("r","de \opOp{abs de $\opVar{$a$}-\opVar{$b$}$}");%"\opOp{$\abs$}");%
15 draw RepeterJ2("\opOp{$\opVar{$r$}=0$}");
16 draw MettreVar("x","\opVar{$a$}");
17 draw MettreVar("y","\opVar{$b$}");
18 draw MettreVar("pgcd","\opVar{$r$}");
19 draw MettreVar("r","de \opOp{abs de $\opVar{$a$}-\opVar{$b$}$}");%"\opOp{$\abs$}");%
20 draw FinBlocRepeter2(10);