До конца тебя не понял, что ты имел ввиду под x(квадрат), но если тебе нельзя чтобы x был отрицателен, а y может то:
program hello_world;
var x,y: real;
begin
write("Введи значение x , y - ");
read(x, y);
if x<0 then x:=-x;<br>x:= x+y;
writeln("Сумма чисел y и x = ", x)
end.