[Pascal] gemeenschappelijke deler (Opgelost)

<?php
$a = 129238426;
$b = 2342343;
while ($b > 0) {
    $d = $a;
    $c = $a - $b * floor($a / $b);
    $a = $b;
    $b = $c;
}
echo 'Gcd: ' . $a;
?>

<?php
$a = 129238426;
$b = 2342343;
while ($b > 0) {
    $d = $a;
    $c = $a - $b * floor($a / $b);
    $a = $b;
    $b = $c;
}
echo 'Gcd: ' . $a;
?>