Помогите Срочно пожалуйста. Уровень А

Question

Помогите Срочно пожалуйста. Уровень А

---

Answer 1

While

Var i,s:integer;
Begin
    i:=20;s:=0;
    While i<=99 <span>do
    Begin
        s:=s+i;
         i:=i+1;
    End;
    writeln('Сумма = ',s);
     readln;
End.

Repeat
Var i,s:integer;
Begin
  i:=20;s:=0;
  Repeat
     s:=s+i;
      i:=i+1;
   Until i>99;
    writeln('Сумма = ',s);
    readln;
End.