program name_of_program;
var i,s:integer;  
begin  
for i:=100 to 999 do
  begin 
  if i mod 25=0 then  
    s:=s+i;  
  end;  
writeln(s);  
readln;  
end.