Машинный ноль - Turbo Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
program Epsilon;
var
  epsilon: Real;
begin
  epsilon := 1;
  while epsilon/2 + 1 > 1 do
    epsilon := epsilon/2
  Writeln('Машинное эпсилон = ', epsilon);
end.

Поправь дядь плиз, как сделать с отрицательным порядком, вроде все правильно но не компилирует

Решение задачи: «Машинный ноль»

Листинг программы

  e := 1;
  while e / 2 > 0 do e := e / 2;
  writeln(e);

Объяснение кода листинга программы

Переменная e инициализируется значением 1.
Запускается цикл while, условием которого является e / 2 > 0. Это означает, что пока e делится на 2 без остатка (т.е. e является четным числом), цикл будет продолжаться.
Внутри цикла значение переменной e делится на 2.
После завершения цикла значение переменной e выводится на экран с помощью функции writeln.
Значение переменной e теперь равно 0, так как все четные числа, кроме 0, были разделены на 2.