I PHP bir pascal programı yeniden yazmak için çalışıyorum, ve pascal fonksiyonu bu kısmı ne anlamıyorum:

 while (u[3] <> 1) and (u[3]<>0) and (v[3]<>0)do
       begin
       q:=u[3] div v[3];
       for i:=1 to 3 do
           begin
           t:=u[i]-v[i]*q;
           u[i]:=v[i];
           v[i]:=t;
           {writeln('u',i,'=',u[i],'  v',i,'=',v[i]); }
           end;
       end;
       if u[1]<0 then u[1]:=n+u[1];
       rae:=u[1];

PHP için yeniden yazmak için yardımcı olun.

Teşekkürler.