Вычислите сумму двух вещественных чисел. x и y, если x-положительное, иначе x(квадрат)  ПАСКАЛЬ!!!
полное решение 

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

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