помогите-алглритм Евклида

[Журенова Катя]

Здравствуйте помогите пожалуйста написать программу на поскале,вот алгоритм:1)выделение целой части
2)отыскание остатка
3)сравнение остатка с нулём(нужно найти НОД, если он есть)
ну тоесть нужно осуществить алгоритм Евклида

вот эта задача с пост условием,а мне нужно решение этой же задачи,но другим способом:

Program NOD;
var a,b,c,ostatok:word;
begin
readln(a);
readln(b);
repeat
c:=a div b;
ostatok:=a-b*c;
if ostatok<>0 then
begin
a:=0;
b:=ostatok;
end;
until ostatok=0
if b>1 then writeln (b);
if b=1 then writeln ('NOD a not');
End.

[DM_bite]

function nod(var 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;

Это я нашел в Википедии. Да и в вашем коде ошибки мне так кажется.

[megachuhancer]

algolist.manual.ru