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

While Var i,s:integer; Begin     i:=20;s:=0;     While i<=99 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.