const p0 =1.29;

z=12500;

var p,h:real;

begin

h:=0

repeat

p:=p0*exp (-h*z)

writeln ('h=',p:4:2);

h:=h+100;

until (h>100);

end

все^_^(могу ошибится )