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

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

не работает

У вас устаревшая версия PascalABC

Скачайте новую

// 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