Опратор while... do...Пожалуйста посчитайте с практической работой.

A:
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.
B:
Var   
 i: integer;   
x: real;begin   
x := 0;    i := 0;   
while i < 10 do   
begin        inc(i);       
 x := x + 1/i;   
end;   
writeln(x);end.
C я не знаю как