Developing.ru

Спортсмен пробегает за 1-ый день М км, каждый последующий день он увеличивает норму пробега на К%. Определить через сколько дней норма пробега может стать более 50 км.


Я попыталась решить, но помоему всё не так

Program sport;
Uses crt;
Var M, K ,i: Integer;
Begin ClrScr; i:=0;
Writeln('Skolko km sportsmen probezit za pervyi den?');
Readln(M);
Writeln('Na skolko % on budet uveli4ivat ezednevnuju normu?');
Readln(K);
While M<=50 do begin M:=M+M*K/100;
i:=i+1
end;
Writeln('4erez ',M' dnei sportsmen probezit bolee 50 km');
Readln;
end.

Ну, i надо бы в начале установить не 0, а 1, он же в первый день тоже бегает, причем не увеличенную норму, а ровно М километров. И в выводе результата вместо М надо поставить i. А так все правильно.