Question

помогите срочно)))))))

Answer 1

var x, y: real;

begin

   readln(x, y);

   x := sqrt(x);

   y := sqr(y);

   x := x + 1;

   y := y + x;

   writeln(y);

end.

_____________

var x, y: integer;

begin

   readln(x);

   if x > 0 then y := 2 * x else y := -1 * 2 * x;

   writeln(y);

end.