Исправление программы для нахождения факториала числа

[leiprechain]

Здравствуйте!
Помогите пожалуйста исправить ошибки.
Задали в школе следующую задачу:
"Напишите и отладьте следующий алгоритм, подпрограмму НОД составьте сами".
1. Алгоритм
2. цел: x;
3. { Запросить х;
4. x:= Фок(x);
5. Сообщить x:
6. }
7. Алгоритм Фок (цел: x): цел
8. {Если x=1 то {Фок:= 1;}
9. иначе { Фок := Фок (x-1)*x/ НОД(Фок(x-10,x)}
10. }

program lab;
uses crt;
var x: integer;
 
function Nod(x: integer): integer;
var m,n: integer;
   begin
      m:= x;
      n:= foc(x-1);
      while m<>n do
         begin
             if m>n then m:= m-n;
                else n:= n-m;
         end;
   end;
 
function foc(x: integer): real;
   begin
       if x=1 then foc:= 1;
       else foc:= foc(x-1)*1/Nod(foc(x-1), x);
   end;
 
begin
  clrscr;
  writeln('x=');
  readln(x);
  x:=foc(x);
  writeln('x=', x);
end.

Насколько я понял, данный алгоритм вычисляет факториал заданной переменной x.

[leiprechain]

Помогите пожааалуйста.

[leiprechain]

Сори за нубские вопросы, но всё-таки я ещё один задам.
Ошибки я нашёл в программе, запустил компилятор, вроде всё правильно, но после ввода переменной х выдаёт пустую строку. В чём проблема?
Вот код

program lab;
uses crt;
var x: integer;
 
function Nod(x: integer): integer;
var m,n: integer;
   begin
      m:= x;
      n:= foc;
      while m<>n do
         begin
             if m>n then m:= m-n
                else n:= n-m;
         end;
   end;
 
function foc(x: integer): integer;
   begin
       if x=1 then foc:= 1
       else foc:= foc(x-1)*1 div Nod(foc(x-1), x);
   end;
 
begin
  clrscr;
  writeln('x=');
  readln(x);
  x:=foc(x);
  writeln('x=',x);
readkey;
end.

P.S Проблема где-то в функции Nod, так как если его заменить на 1 в foc, то всё работает корректно.

[Mad_Cat]

Nod(foc(x-1), x);

и

 function Nod(x: integer): integer;

ничего не замечаете?

[leiprechain]

Сообщение от Mad_Cat

Nod(foc(x-1), x);

и

 function Nod(x: integer): integer;

ничего не замечаете?

Замечаю, но при вводе

function Nod(x, foc(x-1): integer): integer;

он пишет что необходимо вести ":" перед (х-1).

[Mad_Cat]

else foc:= foc(x-1)*1 div Nod(x)

вот так должно быть
а не так как у вас

else foc:= foc(x-1)*1 div Nod(foc(x-1), x);

[leiprechain]

Сообщение от Mad_Cat

else foc:= foc(x-1)*1 div Nod(x)

вот так должно быть

теперь 0 выдаёт.

[Mad_Cat]

А где у вас в функции возвращается результат?
Возьмите учебник! Глава процедуры и функции!

[leiprechain]

Сообщение от Mad_Cat

А где у вас в функции возвращается результат?
Возьмите учебник! Глава процедуры и функции!

Спасибо за помощь.
Нужды в учебнике нет, так как сам сообразил
К тому же в моём учебнике глава "процедуры и функции" помещена в один параграф