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

//A lvl

var
  i,sum: integer;

begin
  i := 20; sum:=0;
  while (i lt; 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 lt;= 10) do
    begin
    sum := sum + 1 / i;
    inc(i);
    Writeln(sum);
    end;
  Writeln(sum);
end.