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.
UHJvZ3JhbSBQR0NEX0V1Y2xpZGU7ClZhciBhLCBiLCByIDogSW50ZWdlcjsKQmVnaW4KUmVwZWF0CldyaXRlbG4gKCdTYWlzaXIgZGV1eCBlbnRpZXJzID4gMCcpOwpSZWFkbG4gKGEsIGIpOwpVbnRpbCAoYT4wKSBhbmQgKGI+MCk7CldoaWxlIGI8PjAgRG8KQmVnaW4KciA6PSBhIG1vZCBiOwphIDo9IGI7IGIgOj0gcjsKRW5kOwpXcml0ZWxuICgnUEdDRCA9ICcsYSk7CkVuZC4=