
Требуется Ваша помощь по решению алгоритма с ветвями.
Текст алгоритма:
PROGRAM Lab;
CONST
C=8.338;
VAR
A,B,F,R :real;
BEGIN
Writeln('A:=11.1,B:=0.87');
Readln(A,B);
R:=A/B;
if (R>C) and (abs(B)>0.1) then
F:= ln®-A/C(B)
else
if (R<=C) and (abs(B)>0.1) then
F:= exp®+C(B)
else
F:= C(B);
Writeln('Рез-т' ,F:);
END.
*Ошибки начинаются с 11 строки, но понять в чём именно проблема - не могу.
Прикрепил файл изображения с заданием.
P.S: "Программу только начали изучать, многое не понятно.
Надеюсь на Вашу профессиональную помощь. Спасибо.
