задача на Паскале

[Вера123]

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

program nod;
var  d,f : real;

	function o(a,b,c : integer): real;
        begin
        writeln ('vvedite 1 chuslo');
	read (a);
	writeln ('vvedite 2 chuslo');
	read (b);
	writeln ('vvedite 3 chuslo');
	read (c);
	d:= a/b ;
        f:= d/c ;
    if f=0 then writeln ('');
end.

[Daramant]

А где сам алгоритм нахождения НОД???
Это не верно:

  ...
  d:= a/b ;
  f:= d/c ;
  if f=0 then writeln ('');
  ...

Надо вот так:

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.

P.S.
Такая проверка также неверна:
НОД (а, b, с) = НОД (НОД (а, b), с).
Допустим, числа: 5, 7, 10. По данной проверке:
НОД(5, 7, 10) = НОД (НОД (5, 7), 10). - неверно.
5 и 7 - взаимно простые
7 и 10 - тоже
5 и 10 - нет.

На взаимную простоту надо проверять попарно
1 и 2, 1 и 3, 2 и 3 числа.

 if (NOD(a, b) = 1) and (NOD(a, c) = 1) and (NOD(c, b) = 1) then

Удачи.

[Вера123]

это неверно !!!! там всегда пишет

ne vzaimno prostie!

[Daramant]

Все работает. Какие числа ты вводила?
1 2 3 - взаимно простые
2 3 4 - нет
2 3 5 - да
3 9 10 - нет
3 8 11 - да

P.S. Числа нужно тоже правильно подобрать.