Тема: Допоможіть знайти помилку в коді
Написав код программи, для обчислення системи рівнянь з умовою(фото прикріплено)
Ось що зробив,потрібне повне розгалуження(сподіваюсь це воно). Знаходить помилку в 14 стрічці " Встречено 'else', а ожидался оператор".
program rrr;
var a,x,y : real;
Begin
writeln(' Введіть змінні "a" та "x" ');
realn(a,x);
if x>0 then begin
if x<1.3 then begin
y:=x*x-(7/x*x);
end
else begin
if x=1.3 then begin
y:=a*x+7*(sqrt(x));
end
else begin
y:=ln(x+9*(sqrt(x)));
end;
else begin
writeln('Недопустиме значення змінної "х" ');
end;
writeln(y);
end.