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