Example: gcd
w
function gcd(a,b: integer): integer;
w
(* Compute gcd of a, b
*)
w
var
temp: integer;
w
begin
w
while b <> 0 do
w
begin
w
temp := a mod b;
w
a := b;
w
b := temp
w
end;
w
gcd := a
w
end;
int gcd(int a, int b)
{
}
int temp;
while (b != 0)
{
}
temp = a % b;
return a;
b = temp;
a = b;