Program ppcm_pgcd;
Var a, b : integer;
(************************************)
Procedure saisie (Var a,b:integer);
Begin
Repeat
Writeln('Donner deux entiers >0');
Readln (a, b);
Until (a>0) and (b>0);
End;
(***********************************)
Procedure affiche(a,b:integer);
Var k:integer;
Begin
k := 0;
Repeat
k := k+1
Until (a*k) mod b = 0;
Writeln ('ppcm de ', a, ' et ', b, ' = ', a*k);
Writeln ('pgcd de ', a, ' et ', b, ' = ', b div k);
End;
(***************** P.P ****************)
Begin
saisie(a,b);
affiche(a,b);
End.