C клавиатуры вводятся длины 2-х отрезков. Одна длина отрезка задана в миллилитрах, другая в дюймах. Какой отрезок длиннее&

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadReal('Введите длину в миллиметрах:');  var b:=ReadReal('Введите длину в дюймах:');  var s:=Sign(a-25.4*b);  case s of  -1:Writeln('Второй отрезок длиннее');  0:Writeln('Отрезки равны');  1:Writeln('Первый отрезок длиннее')  endend.