Дано трехзначное число найдите сумму квадратов его чисел

var   n,i,s:integer; begin   Write('Введите трехзначное натуральное число: '); Read(n);   s:=0;   for i:=1 to 3 do     begin s:=s+sqr(n mod 10); n:=n div 10 end;   Writeln('Сумма квадратов цифр равна ',s) end. Тестовое решение: Введите трехзначное натуральное число: 714 Сумма квадратов цифр равна 66