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

//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray();
a.Transform(x->x*x);
write(a.Sum());
end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Сумма квадратов: ',ReadSeqIntegerWhile(t->t<>0).Select(t->t*t).Sum)
end.

Пример
16 -23 18 24 5 -12 7 11 9 5 2 0
Сумма квадратов: 2134