Дано четырехзначное число.отыскать сумму квадратов 2-ой и третьей числа

Var n,n1,n2,n3,n4,sum:integer;
Begin 
readln(n);
     n1:=n div 1000; 
         n2:=n div 100; 
         n2:=n2 mod 10;   
              n3:=n div 10;   
              n3:=n3 mod 10;     
                   n4:=n mod 10;       
n2:=n2*n2; 
n3:=n3*n3; 
  sum:=sum+n2+n3; 
    writeln('sum=',sum);

end.