Решите пожалуйста программу в Pascal: x=y^2-sqrt(y), при y>=0; x=3/y+y, при y<0.Напишите...

Question

Решите пожалуйста программу в Pascal:
x=y^2-sqrt(y), при y>=0;
x=3/y+y, при y<0.<br>Напишите пожалуйста решение программы.

Answer 1

var

  x, y: real;

begin

  readln(y);

  if y >= 0 then x := sqr(y) - sqrt(y) else

    x := 3 / y + y;

  writeln(x);

end.