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

var m:real; k:integer;beginm:=100; k:=0;while m>80 do begin k:=k+1; m:=m*0.99; end;writeln('k = ',k);end.Результат:k = 23