Составить программу вычислений значений функций

Program Nikon;

var x, y: real;

Begin

Write (x);

Readln (x);

if x<0 then y:=sqrt (1+sqr(x)/(1+sqr(x)

if (x>=0)and(x<=1)then y:=cos(x)sqr(cos)x;

else y:=sqrt (1+abs(2 sin(x)3x)sqr(1/3));

end;

Writeln('при x= ',x,'y= ',y);

end.