program z128; uses crt; var a,b,c,d:integer; BEGIN writeln('vvedite a i b'); readln(a,b); c:=(a+b)*(a+b); d:=a*a+b*b; writeln(c); writeln(d); readln; END.