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

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.