Запишите алгоритм Евклида. Найти наибольший общий делитель (НОД) двух целых положительных чисел.
function nod( a, b: longint): longint;
begin
while (a <> 0) and (b <> 0) do
if a >= b then
a:= a mod b
else
b:= b mod a;
nod:= a + b;
end;
паскаль
это на бейсике написанно?