{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 4, EXERCICE 1 }

program pgcd;  {nom du programme, parfaitement inutile...}
var x,y,z:integer;  {d‚claration des variables}

procedure calculs(nombre1,nombre2:integer); {proc‚dure faisant le calcul selon la m‚thode du fascicule}
begin
 while nombre1<>nombre2 do
 begin
  if nombre1>nombre2 then nombre1:=nombre1-nombre2;
  if nombre1<nombre2 then nombre2:=nombre2-nombre1;
 end;
z:=nombre1;
end;

procedure entree ; {proc‚dure d'entr‚e des donn‚es}
begin
repeat   {boucle}
 write('Veuillez entrer une valeur entiŠre positive pour X et Y : ') ;
 readln(x, y) ;
until (x>0) and (y>0) ; {fin de boucle si X et Y son toutes deux positives}
end;

procedure affichage(nombre1,nombre2,diviseur:integer); {proc‚dure d'affichage du r‚sultat}
begin
 writeln('Le plus grand commun diviseur de ', nombre1, ' et de ', nombre2, ' est ',diviseur ) ;
end;

BEGIN    {programme principal}
 entree;
 calculs(x,y);
 affichage(x,y,z);
 readln;
END.        {fin du programme principal}