Turbo pascal в 1 день спортсмен пробежал 10 км.каждый следующий день спортсмен увеличивал норму пробежки на 500м (0,5км).через сколько дней он будет пробегать 30 км? 100 км?

Var c,d,b,f:integer;
a,e:real;
Begin
a:=10;
e:=10;
f:=0;
while a<30 do
begin
a:=a+1/2;
b:=b+1;
end;
writeln(b);
while e<100 do
begin
e:=e+1/2;
f:=f+1;
end;
writeln(f);
end.