задача на НОД на Паскаль...

[Вера123]

Найти наибольший общий делитель трех натуральных
чисел, имея в виду, что НОД (а, b, с) = НОД (НОД (а, b), с).
При решении определите функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида(это из раздела "подпрограммы")...вот я пробовала....

var
  a,b,c: Integer;

 function NOD(a,b: Integer): Integer;
 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;

begin
  writeln ('vvedite 1 chuslo');
  read (a);
  writeln ('vvedite 2 chuslo');
  read (b);
  writeln ('vvedite 3 chuslo');
  read (c);

  if (NOD(a, b) = 1) and (NOD(a, c) = 1) and (NOD(c, b) = 1) then
    writeln('vzaimno prostie!')
  else
    writeln('ne vzaimno prostie!');

end.

[Sazary]

Вам ведь нужно

Найти наибольший общий делитель трех натуральных
чисел

то есть, вот так:

writeln(nod(nod(a,b),c));

[Вера123]

ну исправь...пожалуйста...

[Sazary]

Сообщение от Вера123

ну исправь...пожалуйста...

А что, вы только первую часть поста прочитали?

И вместо read используйте readln.

[Вера123]

ну помоги сложить прогу в целое...и все...

[Sazary]

Вот это:

 if (NOD(a, b) = 1) and (NOD(a, c) = 1) and (NOD(c, b) = 1) then
    writeln('vzaimno prostie!')
  else
    writeln('ne vzaimno prostie!');

замените на то, что я сказал.