ПОЖАЛУЙСТА Безотлагательно!!!Даны естественные n, целые числа a1, , an. Отыскать

Program Task1;Vara : Array [1..100] of Integer;n,m,i,j,s,p : Integer;BeginWrite ('n=');Readln(n);Writeln ('Введите элементы массива A[',n,']');For i:=1 to n dobeginWrite ('a[',i,']=');Readln(a[i]);end;Writeln ('Сформирован массив A[',n,']');For i:=1 to n doWrite (a[i]:8);Writeln;Write('m=');Readln(m);s:=0;p:=1;i:=1;

While (p<=m) and (i<=n) dobeginp:=p*a[i];if p<=m thens:=s+a[i];i:=i+1;end;Writeln ('Сумма первых частей, для которых их творение не превосходит M : ',s);Readln;End.

 for i:=1 to n do      
 begin           k:=0;        
  for j:=1 to n do              
if a[i]=a[j]then inc(k);              
if k=1 then begin                  
write (a[i],' ');                  
s:=s+a[i];            
  end;    
 end;