program TinhTong;
var
  i, sum: integer;
begin
  sum := 0;  
  for i := 1 to 500 do
  begin
    if (i > 0) and (i < 500) then
    begin
      sum := sum + i;  
    end;
  end;
  writeln('Tong cac so duong va be hon 500 la: ', sum);  
end.