Program a;
var x,y:real;
begin
writeln('Введиите переменную x');
read(x);
if x < 0 then;
y:=cos(2*x)+exp(x);
writeln('y=',y);
else
y:=7x/abs(2x-1);
writeln(‘y=‘,y);
end.
Program a;
var x, y: real;
begin
writeln('Введиите переменную x');
read(x);
if x < 0 then y := cos(2*x)+exp(x)
else y := 7*x/abs(2*x-1);
writeln('y=',y);
end.