Cпортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на P процентов от пробега предыдущего дня

По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км, и вывести найденное количество дней K (целое) и суммарный пробег S (вещественное число). P — вещественное, 0 < P < 50.

program while16;
uses crt;
var
  k : integer;
  q, p, s : real;
begin clrscr;
  Writeln('Введите p ');
  Readln(p);
  q:=10;
  k:=1;
  s:= 0;
  while s<=200 do
    begin
      q:= q*(1+p/100);
      s:=s+q;
      k:=k+1;
    end;
  writeln('s = ',s:0:3,' k = ',k);
  readln;
end.