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

Question

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

Answer 1

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.

---