Машинное эпсилон — Pascal(Паскаль)

Program EpsilonDetect;
var 
    epsilon: Real; 
begin 
    epsilon := 1; 
    while epsilon/2 + 1 > 1 do 
        epsilon := epsilon/2;
    Writeln('Машинное эпсилон = ',epsilon); 
end.