if En_i then
ti1:=ti1*1.01;
end_if