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

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.