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

var numb,sot,des,ed:integer;beginreadln(numb);sot:= numb div 100;des:=numb mod 100;des:= des div 10;ed:=numb mod 10;if sqr(numb)=sqr(sot+des+ed)*(sot+des+ed) thenwriteln('Yes')elsewriteln('No');end.