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

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