Помогите программу на Паскале сделать

Question

Составить программу
 нахождения суммы квадратов цифр введенного числа (не более 6 знаков) .

Юрий Чудаев · Accepted Answer

примени себе эту прогу 
uses crt; 
var x,sum,n: integer; 
begin 
 clrscr; 
 readln(n); 
 sum := 0; 
 while n<>0 do 
 begin 
 sum:=sum + n mod 10; 
 n := n div 10; 
 end; 
 write('сумма цифр = ',sum); 
 readln; 
end.