program salihov;
uses crt;
var a,b,x,y:real;
c1,c2,otvet:real;
procedure func ( a,b:real; var y:real);
var x:integer;
begin
func:=SQRT(abs(a-sin(x)/cos(x)))+1/3*SQRT(abs(b-sin(x)/cos(x))));
end;
begin clrscr;
readln(a,b,x);
func(SQRT(abs(a-sin(x)/cos(x))),c1);
func(Exp(1/3*SQRT(abs(b-sin(x)/cos(x)))),c2);
otvet:=c1+c2;
write(otvet:3:3);
end

выдает ошибку возле формулы. помогите пожалуйста

Насколько я помню, процедура не возвращает никакого значения, в отличие от функции.