var
  i, sum: integer;

begin
  i := 20;
  repeat
    sum := sum + i;
    i := i + 1;
  until (i = 100);
  write(sum);
end.