Помогите пожалуйста мне составить программу паскаль! А то я уже сутки сижу над ней!

[рома холодцов]

Помогите пожалуйста мне составить программу паскаль! А то я уже сутки сижу над ней!:
"Ввести последовательность натуральных чисел {A j },j=1,...,n.
Найти сумму чисел,не заканчивающихся цифрой 1,наименьшее из таких чисел,и номер этого числа в последовательности."
"
Спасибо огромное!

[Sazary]

рома холодцов
Если вы так долго над ней сидите, то наверняка должно быть хоть что-то, что уже сделано. В следующий раз выкладывайте свои наработки.

uses crt;
const maxN=100;
var
n,i,k,sum,min,mini : integer;
a : array[1..maxN] of integer;
begin
clrscr;
write('Vvedite n: ');
readln(n);
writeln('Vvedite chisla:');
for i:=1 to n do
  begin
  write('A[',i,']= ');
  readln(a[i]);
  end;
writeln;
sum := 0;
mini := maxN+1;
min := 50000;
for i:=1 to n do
  if a[i] mod 10 <> 1 then
    begin
    sum := sum + a[i];
    if a[i]<min then
      begin
      mini := i;
      min := a[i];
      end;
    end;
writeln('Summa= ',sum);
writeln('Minimum: a[',mini,']=',a[mini]);
readln;
end.

И еще прочитайте правила!

[рома холодцов]

Спасибо....вам