Помогите написать программу ** pascalABC Вычислить сумму квадратов вводимых чисел. числа...

Question

Помогите написать программу на pascalABC

Вычислить сумму квадратов вводимых чисел. числа вводятся, пока не будет нажат ноль.

Answer 1

Program n1;
var a: integer;
sum: real;
begin
sum:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a*a;
readln(a);
end;
write(sum);
end.

Answer 2

Llllllllllllllllllllllllll