Напишите программу, которая считывает с консоли числа (по одному в строке) до тех пор, пока сумма введённых чисел не будет равна 0 и сразу после этого выводит сумму квадратов всех считанных чисел. Гарантируется, что в какой-то момент сумма введённых чисел окажется равной 0, после этого считывание продолжать не нужно.

В примере мы считываем числа 1, -3, 5, -6, -10, 13; в этот момент замечаем, что сумма этих чисел равна нулю и выводим сумму их квадратов, не обращая внимания на то, что остались ещё не прочитанные значения.

Sample Input:

1
-3
5
-6
-10
13
4
-8
Sample Output:

340

//pascalabc.net 3.0, сборка 1053 const   bmw=1700000; var   s,x: longint;   n: byte; begin   randomize;   n: =0; s: =0;   writeln('месяц    сумма взятки    накоплено');   while s< bmw do begin       x: =random(150001); s: =s+x; inc(n);       writeln(n: 4,x: 12,s: 15)   end;   writeln('потребуется месяцев: ',n) end. тестовое решение: месяц    сумма взятки    накоплено     1          131598                131598     2            40502                172100     3            90384                262484     4            33945                296429     5            50956                347385     6          137449                484834     7            32050                516884     8            68439                585323     9              1187                586510   10            70707                657217   11          145871                803088   12          143780                946868   13            54179              1001047   14            39314              1040361   15            30297              1070658   16            49163              1119821   17            63244              1183065   18          128362              1311427   19            87284              1398711   20            80851              1479562   21            71269              1550831   22          139577              1690408   23            78690              1769098 потребуется месяцев: 23