Найти квадрат суммы и сумму квадратов 2-х целых чисел,вводимых с клавиатуры.Черезе паскаль

1

Ответы и объяснения

2014-01-16T19:21:59+04:00
Program summa;
var a, b ,SS,S: integer;
begin 
WRITELN ( ' Введите два целых числа' );
READLN(a, b);
S:= sqr (a+b);
SS := a*a + b*b;
WRITELN ('сумма квадратов чисел равна  ', SS);
WRITELN ('Квадрат суммы чисел равен  ', S);
END.