решение задач в паскале с помощью div и mod 8 класс.
Дано четырехзначное число . Нужно вычислить квадрат суммы всех цифр.
помогите пожалуйста!

var a,sum,i,ii:integer;beginsum:=0;readln(a);for i:=1 to 4 dobeginii:=a mod 10;a:=a div 10;sum:=sum+ii*ii;end;writeln(sum);end.