ХЭЛП! (10б)
Задача
(x²+5, если х>=0
y= фигурная скобка (-x²-3, если х<0

Получится вот так :)

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  var x:=ReadReal('x=');  if x>=0 then Writeln(x*x+5)  else Writeln(-x*x-3)end.