Решить в pascal ! вася-сладкоежка в первый день съел 10 конфет, а потом каждый день увеличивал дозу на 5 конфет. когда у васи заболят зубы, если боль появляется из-за k съеденных конфет в день. решить с

Var doza,k,day : integer;begin  doza := 10;  day := 1;    writeln('Сколько конфет нужно есть, чтобы заболели зубы?');  write('> ');  readln(k);    while (k > doza) do  begin    doza := doza + 5;    day := day + 1;  end;    writeln('Зубная боль наступит через '+day+' дней');end.