С клавиатуры вводится натуральное 4-х значное число.Определить,равен ли квадрат суммы цифр этого числа произведению его цифр?

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=Abs(ReadInteger('n='));  var (s,p):=(0,1);  while n>0 do begin    var d:=n mod 10;    s+=d; p*=d;    n:=n div 10    end;  if s*s=p then Writeln('Да') else Writeln('Нет')end.