Программа для Паскаля. Составить программу, которая запрашивает у пользователя два целых числа и выводит квадрат суммы (а+b) ^2 и сумму квадратов а^2+b^2 этих чисел.

program zz1;

var a, b, c, d : integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

c: = sqr (a + b); / / вычисляем квадрат суммы

d:=sqr (a) + sqr (b); / / вычисляем сумму квадратов

writeln (' квадрат суммы = ', c); / / выводим ответы

write (' сумма квадратов = ', d);

end.