Question

написать программу которая возводит сумму трёх чисел в квадрат а, б и с

Answer 1

program kvad;

var

a: array[1..3] of integer;

j,sum:integer;

begin

for j:= 1 to 3 do begin

read(a[j]);

sum:= sum + a[j];

end;

sum:= sqr(sum);

writeln(sum);

end.

Answer 2

var a,b,c:integer;

begin

readln(a,b,c);

write(sqr(a+b+c));

end.