je pense c'est comme ca 

program ppcm;

uses crt;

var x,y,z,ppcm:Integer;
begin
clrscr;
Writeln('taper deux nombre positif :');
ReadLn(x,y);
if x>y then
begin
z:=x;
x:=y;
y:=z
end;
ppcm:=x;
while (ppcm mod y<>0) do
ppcm:=ppcm+x;
WriteLn('ppcm =',ppcm);
end.