Напишите программу: даны 3 целых числа, найти сумму их квадратов. Паскаль. ​

Question

Напишите программу: даны 3 целых числа, найти сумму их квадратов. Паскаль. ​

Answer 1

var

 a, b, c, sum :integer;

begin

 read(a, b, c);

 sum := a*a + b*b + c*c;

 writeln(sum);

end.