вопрос по работе программы с рекурсией

[Eugeny19841]

Добрый день! Подскажите, пожалуйста, почему не работает программа. Пишет, что неизвестное имя G. Хотя функция прописана?
procedure F(n: integer);
begin
if n mod 5=0 then G(n-50)
else F(n-3);
end;
procedure G(n: integer);
begin
writeln('*');
if n > 0 then F(n-1)
end;
begin
F(51);
end.

[Arigato]

Потому что видна она только ниже объявления, а вы пытаетесь к ней обратиться выше. В вашем случае это взаимная рекурсия (функции вызывают друг друга). Для того, чтобы обратиться к процедуре G, ее заголовок надо описать выше процедуры F:

procedure G(n: integer); Forward;

Директива Forward позволяет описать заголовок подпрограммы до реализации, сделав ее тем самым видимой ниже этого описания.

[Eugeny19841]

Cпасибо, благодарю!