Question

дано трехзначное число. найти сумму кубов первой и второй его цифр

Answer 1

readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
s:=a1*a1*a1+a2*a2*a2;