Даны 10 чисел. Найти сумму их квадратов

program zz1;

var i, a, S:integer; / / задаем переменные целого типа

begin

for i:=1 to 10 do / / организуем цикл на 10 повторений

begin

read (a); / / вводим с клавиатуры очередное число

S:=s + a * a; / / вычисляем квадрат введенного числа и добавляем его в сумму

end;

writeln (' Сумма квадратов десяти введенных чисел = ', S); / / выводим ответ

end.