Помогите мне сделать уровень А и В

Question

Помогите мне сделать уровень А и В

---

Answer 1

//A lvl

var
  i,sum: integer;

begin
  i := 20; sum:=0;
  while (i < 100) do
  begin
    inc(sum,i);
    inc(i);
  end;
  Writeln(sum);
end.

// B lvl

var
  i: integer;
  sum:real;
begin
  i := 1; sum:=0;
  while (i <= 10) do<br>    begin
    sum := sum + 1 / i;
    inc(i);
    Writeln(sum);
    end;
  Writeln(sum);
end.