Question

Помогите, паскаль авс 41.а

Answer 1

Var
x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('z = ');ReadLn(z);
WriteLn('u = ',Sin(abs((y-sqrt(abs(x)))*(x-(y)/(z*z+x*x/4)))));
WriteLn('v = ',Cos(z*z+x*x+4));
End.