Program chisla;
uses crt;
var a,b : integer;
begin
Writeln('Введите два целых числа');
Write('a=');
read(a);
Write('b=');
read(b);
Writeln('Квадрат суммы ',a,' и ',b,' равен ',sqr(a+b));
Writeln('Сумма квадратов ',a,' и ',b,' равена ',sqr(a)+sqr(b));
end.