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

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