Может кто перепишет на паскаль

Вот на C:

#include

int main(void)
{
 int km, day;
 day = 1;
 km = 10;

 while (km <= 200)
 {
  if (km == 20)
  {
   printf("20km in %d day\n", day);
  }
 
  km += km / 1

var

s,s1:real;

k:integer;

begin

s:=10;

k:=1;

while s<20 do

begin

s:=s*1.1;

k:=k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s:=10;

s1:=10;

k:=1;

while s<200 do

begin

s:=s+s1*1.1;

s1:=s1*1.1;

k:=k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.