Пример кода на языке Pascal:

program SquareSum;
var
num1, num2, sum, squareSum, sumOfSquares: integer;
begin
writeln('Введите первое число:');
readln(num1);
writeln('Введите второе число:');
readln(num2);
sum := num1 + num2;
squareSum := sum * sum;
sumOfSquares := num1 * num1 + num2 * num2;
writeln('Квадрат суммы: ', squareSum);
writeln('Сумма квадратов: ', sumOfSquares);
end.

Пользователь будет приглашен ввести два целых числа, после чего программа вычислит квадрат суммы этих чисел и сумму квадратов этих чисел и выведет результаты на экран.