задача по информатике, составить блок-схему алгоритма и программу для решения задачи: спортсмен - лыжник начал тренировки пробежав в первый день 10 км, каждый следующий день он увеличивал длину на Р% от пробега предыдущего дня, определить после какого дня суммарный пробег лыжника превысит 200 км. вывести найденное кол-во дней и их суммарный пробег.

в блок схемах не сильна

var n:integer;

s,s0:real;

BEGIN

  n:=1;

  s:=10;

  repeat

    n:=n+1;

    s:= s + (100+p)*s0/100;

    s0:=(100+p)*s0/100;

  until s>200;

  writeln(s);

END.