"ожидался оператор" при вводе функции на языке PascalABC

[Юрий_91]

составил программу:
program lab5;
Uses Crt;
var
y,z:integer;
f:longint;
begin
writeln('zadane 1');
writeln('vvedite y,z');
read(y,z);
function formula(var x:integer):longint;
begin
formula:=power(x,2)+sqrt(1+2*x+3*po wer(x,2))
end;
begin
a:=(6.9+y)/formula(y);
b:=(2.1+power(z,4))/formula(z);
c:=sin(y)/formula(power(y,2);
writeln('a= ',a,'b= ',b,'c= ',c);
end;
end.
пишет ошибка в строке 10, столбце 9 : ожидался оператор

[UnChanter]

Так функцию нужно писать между Var и Begin. А у вас она описана после Begin

[Юрий_91]

program lab5;
Uses Crt;
var
y,z,x:integer;
a,b,c:real;
function formula(var x:integer):real;
begin
formula:=power(x,2)+sqrt(1+2*x+3*po wer(x,2));
end;
begin
writeln('zadane 1');
writeln('vvedite y,z');
read(y,z);
a:=(6.9+y)/formula(y);
b:=(2.1+power(z,4))/formula(z);
c:=sin(y)/formula(power(y,2));
writeln('a= ',a,' b= ',b,' c= ',c);
end.
переделал, теперь другая ошибка стр16 ст 29 :фактический параметр должен быть переменной. Мне нужно в формулу функции подставить y^2