Ответ: На паскале1. program efef;var a,b: integer;Begin writeln(‘Введите 2 числа:’); readln(a,b); if a=b then begin writeln(sqr(b)+sqr(a)); end else writeln(sqr(a+b));end.2.program efef;var a,b: integer;Begin writeln(‘Введите 2 числа:’); readln(a,b); if a>b then begin writeln(sqr(a+b)); end else writeln(sqr(b)+sqr(a));end.