Question

Даны два ненулевых числа. Найти сумму
и произведение их квадратов. Язык Pascal

Answer 1

• Program Brainly;
• Var a, b: Integer;
• Begin
• WriteLn('Введите а и b: = ');
• ReadLn(a,b);
• WriteLn('Сумма: = ', ((a * a) + (b * b)));
• WriteLn('Произведение: = ', ((a * a) * (b * b)));
• end.