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

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