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

uses crt;var a, k: Integer;begin while a <> 0 do begin readln(a); if a <> 0 then inc(k, sqr(a)); end; writeln(k);end;