Обчислити суму перших 100 натуральних чисел. (1, 2, 3100), використовуючи цикл з передумовою У програмі IDLE (Python)

Жили-были Компьютер, Мышка и Клавиатура. Они были брат и две сестры, монитор был злюкой : 3. Монитор ни в чем не уступал Компьютеру, мышке и клавиатуре.
   Однажды произошло соревнование, которое составил Господин Интернет ,, Арифметические действия над числами". 
,,Первое задание!" - торжественно начал произносить Интернет, "Вам надо решить следующий пример". Пример был таков: 9.015 - 118 × 34 + 48. 633 : 39 = ?
  Все начали напряженно решать этот пример. Компьютер, Мышка и Клавиатура работали вместе - на Компьютере было видно, что они пишут, с Клавиатуры и ее букв они пишут пример и действия, а Мышка следила за правильностью цифр в примере, и решать пример. А наш злой Монитор ни с кем не решал этот пример, он надеялся только на себя. Вот наши Компьютер Мышка и Клавиатура решают последнее действие, а Монитор и первое не решил! И вот наша компьютерная семейка решила этот пример. Все видели как Монитор еще думал над первым действием.
   Но так как время было уже растрачено, Монитору пришлось сдать решение. Мистер Калькулятор начал проверять работы, он посмотрел работу Монитора
,,Ужасно! В жизни не видел такого!"-воскликнул Калькулятор. 
Монитор тяжело вздохнул, ему было очень грустно. Компьютер, Мышка и Клавиатура победили, но отдали приз Монитору и сказали
,,Забирай приз, он нам все равно не нужен. Ведь самый ценный приз - это дружба!"

Program A_1;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=n;
  writeln('Сумма чисел от 1 до ',n,' равна ',sum);
end.

Program B_2;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i*i;
  until i=n;
  writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum);
end.

Program V_3;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    if (i mod 2 = 0) then sum:=sum+i;
  until i=n;
  writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum);
end.

Program G_4;
uses crt;
Var
  i,n,sum: integer;
begin
  i:=9;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=99;
  writeln('Сумма всех двузначных чисел равна ',sum);
end.