По данному 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.