В прикреплённом файле прога находящая НОД для 3 натуральных чисел введённых с клавиатуры, но работает блин не всегда, числа приходиться вводить в оределённом порядке....нитак чё введёшь сразу деление на ноль....
Помогите плз ошибку найти, чтоб в любом порядке можно было вводить....

Вообще-то по алгоритму Евклида должно быть так (если ты уже собрался делать это процедурой, а не функцией):

Procedure delenie(a,b:Longint; Var s1:Longint);
Begin
  while (a <> 0) and (b <> 0) do

    if a >= b then a := a mod b
    else b := b mod a;

  s1 := a + b; { <--- !!! }
end;

Тогда никак не получится НОД = 0 ...

Пасиб Volv (а процедурой просто в школе сделать сказали)