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

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.