Написал программу на паскале все правильно , но пишет какуйто ошибку .В общем помогите написать программу по схеме.

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var (a,b):=ReadReal2;  if a<>0 then Writeln(-b/a)  else    if b<>0 then Writeln('Корней нет')    else Writeln('Любое число')end.Примеры4.2 -2.70.6428571428571430 4Корней нет0 0Любое число