Лыжник пробежал в 1 день 10 км, каждый следующий день он пробегал на 10% больше. определить в какой день он пробежит 20 км, в какой день суммарны пробег превысит 200км решить в паскале

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

Вот на C:

#include <stdio.h>

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 / 10;
  day++;
 }
 printf("<200km in %d day", day);

 printf("\n");
 system("pause");
 return 0;
}

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.