procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then ShowMessage('А "n" хто буде вводити ?') else
  begin
    n:=StrToInt(Edit1.Text);
    if (n<1) or (n>500) then ShowMessage('Від`ємне або більше за 500, програма не рахує. Задайте інше значення!')
    else if Memo1.Lines.Count< n then
    ShowMessage('Ви кароче шось не то зробили. Спробуйте ще раз!') else
    begin
      SetLength(A,n);
      for i:=0 to (n-1) do //Переносимо дані Мемо в масив
      A[i]:=StrToInt(Memo1.Lines[i]);

      //Кароче тут обробляються дані
      Sum:=0; Dob:=1;
      for i:=0 to (n-1) do
      if A[i]<>0 then //Якщо елемент не опрацьований і не рівний  0
      begin
        bb:=False;

        //тут чи повторяється втикаєм
        for j:=(i+1) to (n-1) do
        if A[i]=A[j] then
        begin
          bb:=True;
          Sum:=Sum+A[j];
          A[j]:=0; //Тут тіпа шоб дарма не перепровіряти
        end;
        if bb then Sum:=Sum+A[i] else
        //Добуток х**буток
        Dob:=Dob*A[i];
      end;

      Edit2.Text:=IntToStr(Sum); //Фігачим результат
      Edit3.Text:=IntToStr(Dob);
      Finalize(A);
    end;
  end;
end;