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

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