Оля,
1 гораздо полезнее приводить не текст своей программы, а что она должна делать.
2 мягко говоря, твои познания PASCAL на уровне плинтуса.
3 знания получают чтением умных книг и решением задач.
на ответах ты знаний не получишь.
4 а еще есть умения и навыки. чтобы их получить, надо писать много программ.
Есть проблема объявлены две функции, а в итоге далее идёт одна и получается, что Begin и end только для одной... компилятор ищет вторые Begin и end !
С компилятором я договорился ошибки больше нет!
А вот как написать коды для функций непонятно!!
Нужно исходное задание!!
******************************************************
Далее текст отредактированной программы:
******************************************************
Program zadacha01;
Uses crt;
var
k,p,n:integer;
function G(n:integer):integer;
begin;
if n<=2 then k:=n;
if n<=1 then p:=n+1;
{if n>2 then k:=F(n-1)+G(n-2);}
{if n>1 then p:=F(n-1)+G(n-1);}
G:=p;
end;
function F(n:integer):integer;
begin;
if n<=2 then k:=n;
if n<=1 then p:=n+1;
{if n>2 then k:=F(n-1)+G(n-2);}
{if n>1 then p:=F(n-1)+G(n-1);}
F:=k;