Вычислите сумму 2-ух вещественных чисел. x и y, если x-положительное, иначе

До конца тебя не понял, что ты имел ввиду под x(квадрат), но если для тебя нельзя чтоб x был отрицателен, а y может то:

program hello_world;
var x,y: real;
begin
write("Введи значение x , y - ");
read(x, y);
if xlt;0 then x:=-x;
x:= x+y;
writeln("Сумма чисел y и x = ", x)
end.