Algorithmique et Structures de Données Statiques

program ppcm;
var a,b,i,q,k,vq,n:integer;
begin
writeln('donner deux nombres entiers);
readln(a,b);
if a>b then n:=a
else n:=b;
vq:=1;
q:=1;
k:=0;
for i:=2 to (n div 2) do {pour gagner des iterations iterations}
begin
    if a mod i=0 then
    begin
    q:=i;
    a:=a div i;
    while a mod i=0 do   {l'idee c'est de faire la meme operation pour le meme i, autrement dit  on peut y avoir le quotient de 'a' est aussi divisible sur le meme i}
    begin
      if a mod i =0 then
      begin
      a:=a div i;
      q:=q*i;
      end;
    end;
    end;
   if b mod i =0 then {c'est la meme chose que a}
   begin
   k:=i;
   b:=b div i;
   while b mod i=0 do
   begin
     if b mod i=0 then
     begin
     b:=b div i;
     k:=k*i;
     end;
   end;
   end;
   if q>=k then vq:=q*vq
   else vq:=k*vq;
   q:=1;                      {on doit reinitialiser le 'q' et le 'k' sinon si a mod i<>0 et b mod i<>0 , il va multiplier vq par k ou q}
   k:=1;
end;
writeln('ppcm= ',vq);
end.