Найти сумму целых положительных чисел

s:=0;
for i:=21 to 99 do
if i mod 3=0 then s:=s+i;

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,p,mx:byte;
    mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
{начнем с первого элемента}
i:=1;
mx:=1;
mn:=a[1];
while i<=n do{пока не конец массива}
 begin
  j:=i+1;k:=1;{смотрим впереди, один раз есть}
  while j<=n do{пока не конец}
   begin
    if a[j]=a[i] then{еще такое}
     begin
      k:=k+1;{считаем}
      for p:=j to n-1 do{сдвигаем на него конец массива, элемент удаляем, 
                         чтобы снова потом его не считать}
      a[p]:=a[p+1];
      n:=n-1;{уменьшаем на 1 размер массива}
     end
    else j:=j+1;{иначе вперед}
   end;
  if k>mx then{если чаще предыдущих}
   begin
    mx:=k;{самый частый}
    mn:=a[i];{запомним его}
   end
  else if k=mx then{если столько раз уже было}
   if a[i]<mn then mn:=a[i];{но этот элемент меньше, запомним его}
  i:=i+1;{следующий из неудаленных элементов}
 end;
write('Минимальное из самых частых=',mn,' встречено ',mx,' рз.');
readln
end.