[lmikle]

Код:

procedure CalcVals(N : Integer; var ASum, AMul : Integer);
var
  I : Integer;
begin
  ASum := 0;
  AMul := 1;
  For I := 1 To N Do
    Begin
       ASum  := ASum + I;
       AMul := AMul * I;
    End;
end;

Работу с интерфейсом (едитами) сам напишешь.
И большие N не задавай - факториал (произведение) расчет очень быстро.