Вопрос Пишет, что нужна точка с запятой вместо точки в конце (инфа, паскаль)

[ДИРИЖОР]

Uses crt;

var

k,p,n:integer;

function F(n:integer):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);

F:=k;

G:=p;

end;

begin;

writeln (F(16));

end. <- вместо этой точки ожидалось ;

 

[5Дима5]

Оля,
1 гораздо полезнее приводить не текст своей программы, а что она должна делать.
2 мягко говоря, твои познания PASCAL на уровне плинтуса.
3 знания получают чтением умных книг и решением задач.
на ответах ты знаний не получишь.
4 а еще есть умения и навыки. чтобы их получить, надо писать много программ.

 

[kerin2020]

Есть проблема объявлены две функции, а в итоге далее идёт одна и получается, что 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;

end;

begin
writeln (F(16));
end.

 

[fenol]

Разве после begin надо ; , если надо можешь не отвечать, я олух в паскале, но попробуй убрать ; в begin, модет поможет

 

[InterCross]

Отсутствует тело программы как таковое.

 

[Mixered]

Одна функция должна быть вложена в другую? Почему одна функция без тела?