Составить программу печатающую значение true и false квадрат заданного трехзначного числа равен кубу суммы цифр этого числа

Var A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10)+(A mod 10);
WriteLn(A*A=B*B*B)
End.