Program PPCM; 
Var pcm, m, n, aux : Integer;
Begin
Repeat
Writeln ('Saisir deux entiers > 0');
Readln (m, n);
Until (m>0) and (n>0);
If m < n Then
Begin 
aux:= m;
m := n;
n := aux;
End;
pcm := m;
While (pcm mod n <> 0) Do pcm := pcm + m;
Writeln ('PPCM = ', pcm);
End.