Напишите программу, которая находит квадрат произведения цифр введенного числа

Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
 begin
 p:=p*(a mod 10);
 a:=a div 10;
 end;
p:=p*p;
writeln('p = ',p);
end.

Пример:
a = 273
p = 1764