Не совсем понял вопрос, но попробую ответить:
var y,a,b:integer;
Begin
readln(a,b);
y:=(a+b)*(a+b);
writeln(y = ,y);
readln;
end.
Вводить 2 числа через пробел.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.