Вводится пятизначное число, нужно найти сумму его цифр и произведение цифр

var n, s, p, dt, t, sot, des, ed: integer;
 
Begin
    Write ('n= '); Readln(n);
    if n>= 10000
       then begin
            dt:= n div 10000;
            t:= n div 1000;
            sot:= n div 100;
            des:= (n mod 100) div 10;
            ed:= n mod 10;
            s:=0;
            p:=1;
            s:= dt+t+sot+des+ed;
            p:= dt*t*sot*des*ed;
            end
 
       else Writeln('Это число не является 5-значным');
    if s=p
      then Writeln('s=p')
      else Writeln('s<>p');
Readln;
end.

Var
  n,s,p: Integer;
  i: Byte;
BEGIN
p:=1;
Write('Введите число: ');
Readln(n);
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  s:=s+i;
  p:=p*i;
end;
If s=p Then Writeln('Сумма(',s,')=Произведению(',p,')')
Else Writeln('Сумма(',s,')<>Произведению(',p,')');
END.

var n, s, p, dt, t, sot, des, ed: integer;
 
Begin
    Write ('n= '); Readln(n);
    if n>= 10000
       then begin
            dt:= n div 10000;
            t:= n div 1000 mod 10;
            sot:= n div 100 mod 10;
            des:= (n mod 100) div 10;
            ed:= n mod 10;
            s:=0;
            p:=1;
            s:= dt+t+sot+des+ed;
            p:= dt*t*sot*des*ed;
            end
 
       else Writeln('Это число не является 5-значным');
    if s=p
      then Writeln('s=p')
      else Writeln('s<>p');
Readln;
end.

var n, s, p, dt, t, sot, des, ed: integer;
 
Begin
    Write ('n= '); Readln(n);
    if ((n>=10000) and (n<=99999))
       then begin
            dt:= n div 10000;
            t:= (n div 1000) mod 10;
            sot:= (n div 100) mod 10;
            des:= (n mod 100) div 10;
            ed:= n mod 10;
            s:= dt+t+sot+des+ed;
            p:= dt*t*sot*des*ed;
            end
       else Writeln('Это число не является 5-значным');
    if s=p
      then Writeln('s=p, n = ', n)
      else Writeln('s<>p');
Readln;
end.