8 задание,пожалуйста

// в первом контрольном примере ошибка
// для x=2 и y=3 p=11 а не 13
var p,x,y:integer;
begin
  readln(x,y);
  if x+y>=0 then p:=x+sqr(y)
    else
    p:=sqr(x+y);
  writeln(p);
end.