Курсовая работа2 / Examples / M_EPSIL

Program Mashinnoe_epsilon;
var
   	eps: real;
	epsP1: real; 
	epsil: real;
Begin

eps:=1; epsP1:=1+eps;
	while epsP1>1 do
	begin
    	eps   := eps * 0.5;
        epsP1 := 1 + eps;
		write(eps);
		writeln;
    end;

epsil := eps * 2;
write('Epsilon = ');
write(epsil);
writeln;
end.