Программирование линейных и разветвляющихся вычислительных процессов

program prim;
var v,d,c,e,y,x,a:real;
begin
writeln('Введите значение x');
readln(x);
a:=exp(ABS((sin(x))-((1/4)(cos(x));
c:=(e*ln(x+y))*(y*ln(-sqrt(x)));
e:=sin(x)+ln(x);
  if c<>0 then
     if e>0 then
        writeln (a+e*c)
     else writeln('Подлогарифмические выражение  <= 0 ')
  else writeln ('Знаменатель = 0 ');
end.
 
writeln(x);
end.

program prim;
var v,o,d,c,e,y,x,a:real;
begin
writeln('Введите значение x');
readln(x);
a:=exp(ABS((sin(x)*(sin(x)))-(1/4)*(((cos(x))*(cos(x))*(cos(x))))));
c:=(e*ln(x+y))*(y*ln(abs(-sqrt(x))));
e:=sin(x)+ln(x);
  if a<>0 and c>0 then
     if  (e>0) then begin o:=(a+c)-e;
     writeln(o)end
     else writeln('Подлогарифмические выражение  <= 0 ')
  else writeln ('Знаменатель = 0 ');
end.

program prim;
var v,o,d,c,e,y,x,a:real;
begin
writeln('Введите значение x,y');
readln(x);
readln(y);
a:=exp(ABS((sin(x)*(sin(x)))-(1/4)*(((cos(x))*(cos(x))*(cos(x))))));   writeln('a=',a);
c:=exp(x+y);                                                        writeln('c=',c);
d:=(y*ln(abs(-sqrt(x))));                                              writeln('d=',d);
e:=sin(x)+ln(x);                                                       writeln('e=',e);
  if a<>0 then
     if  (d>0) and (c>0)  then begin o:=sqr(sqrt(a))+c*ln(d)*e;
     writeln('Ответ = ',o)end
     else writeln('Подлогарифмическое выражение  <= 0 ')
  else writeln ('Корень <= 0 ');
  
end.