Помогите выполнить задачу по программированию!

var x,a,s:integer;f:boolean;
begin
read(a);
f:=true;
s :=0;
x :=a ;
while(x0)do
begin
s := s + (x mod 10);
x := x div 10;
end;

if (s*sqr(s) = sqr(a)) then write(f)
else write(not f);

readln;readln
end.