Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1. (программа Паскаль)

Question

Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1.

Answer 1

Var n,s,pr:integer;
Begin
    write('Введите 4-ое число: ');
    readln(n);
    s:=0;pr:=1;
    While n>0 do
    Begin
      s:=s+n mod 10;
      pr:=pr*n mod 10;
      n:=n div 10;
    End;
    writeln(s-pr=1);
    readln;
End.