Program PGCD_Euclide;
Var a, b, r : Integer;
Begin
Repeat
Writeln ('Saisir deux entiers > 0');
Readln (a, b);
Until (a>0) and (b>0);
While b<>0 Do
Begin
r := a mod b;
a := b; b := r;
End;
Writeln ('PGCD = ',a);
End.