Вычислить сумму квадратов цифр.

В Паскале

Var I, S: integer;

Begin

S:=0;

for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }

S:=S+sqr (I) ; {sqr (I) - квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}

writeln ('сумма квадратов цифр = ', S) ; {выводим сумму}

end.