Составить программу в PascalABC За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?

Var m:real; k:integer;
begin
m:=100; k:=0;
while m>80 do
 begin
 k:=k+1;
 m:=m*0.99;
 end;
writeln(k = ,k);
end.

Результат:
k = 23