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 abegin
a:=a+1/2;
b:=b+1;
end;
writeln(b);
while ebegin
e:=e+1/2;
f:=f+1;
end;
writeln(f);
end.