Question

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

Answer 1

program gt;
var n,s:integer;
begin
readln(n);
s:=sqr(n div 100)*(n div 100)*sqr((n div 10)mod 10)*((n div 10)mod 10);
writeln(s);
end.