Найти произведение всех целых чисел заданного диапазона.

Опишите функцию:

function CalcProizv (Nachalo, Konec: integer) : longint;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var n: Longint; m, d, s: Integer; begin Write ('Введите число: '); ReadLn (n); m:=n mod 10; while n>0 do begin d:=n mod 10; n:=n div 10; if m=d then Inc (s, d) else if m>d then begin m:=d; s:=d; end; end; WriteLn ('Сумма наименьших цифр: ', s); end.