Експидиція починає підйом на гру з висоти 3000 м з початковою швидкістю 200м/год. Через кожні 100 м швидкість підйому зменшується на 10% від швидкості за попередні 100м. Розробіть програму, яка визначає: за скільки часу експедиція досягне висоти 4200 м.
Пояснення. Змінна t - поточне значення часу підйому експкдиції, V - поточна швидкість експедиції, h - поточна висота знаходження експедиції

var h,v,t,t1:real; i:integer;beginv:=200/60; // м/минt:=0;h:=3000;writeln('  h   t');for i:=1 to (4200-3000) div 100 do begin t1:=100/v; t:=t+t1; h:=h+100; writeln(h:4:0,' ',t:5:1); v:=v*0.9; end;writeln(t:5:1,' мин');end.Результат:   h    t 3100 30.0 3200 63.3 3300 100.4 3400 141.5 3500 187.2 3600 238.1 3700 294.5 3800 357.2 3900 426.9 4000 504.4 4100 590.4 4200 686.0 686.0 мин