var
a:array[1..1000] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Memo1.Clear;
 for i:=1 to 900 do begin
  a[i]:=99+i;
  Memo1.Lines.Add(IntToStr(a[i]));
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,s:integer;
begin
s:=0;
   for i:=1 to 900 do begin
    if a[i] mod 25=0 then begin
    s:=s+a[i];
    end;
   end;
Label1.Caption:=IntToStr(s);
end;