1. мяч падает с высоты н и каждый раз отскакивает на 36% предыдущей высоты. вычислить расстояние, пройденное мячом до полной остановки. паскаль через for,while,repeat

Один из примеров программы. Дальше сам думай.
var h,i:real;
beginreadln(h);i:=h;while i>0 dobegini:=i*0.36;h:=h+i;end;writeln(h);end.