pogram lb02;
var x:integer;
y:real;
begin
writeln('введите x');
reardln(x);
if(x>3) and(x<=7) then y:=(x*x*x)+exp(1/5*ln(x))else;
if(x=7) then y:=x+(1/10*(x)+exp(1/3*ln(x)))else;
if(x=0)and(x<0)then y:=sqrt(abs(x+sin(x)));
writeln('x=','y=');
readln
end.
правильно или нет