Граф, у которого вершины или рёбра(дуги) несут дополнительную информацию(вес)
var
a, s, p : integer;
begin
p := 1;
repeat a := ReadInteger('введите 4-х значное число: ') until (a > 999) and (a < 10000);
while a > 0 do begin
s += a mod 10;
p *= a mod 10;
a := a div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p);
end.