Дано трехзначное число. найти сумму кубов первой и второй его цифр
надо написать программу?
Readln(a); a1:=a div 100; a2:=a div 10 mod 10; s:=a1*a1*a1+a2*a2*a2;