Составить программу y=(a+b) в квадрате

Не совсем понял вопрос, но попробую ответить:

var y,a,b:integer;
Begin
readln(a,b);
y:=(a+b)*(a+b);
writeln('y = ',y);
readln;
end.

Вводить 2 числа через пробел.