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

begin
  var (a,b):=ReadReal2;
  if a<>0 then Writeln(-b/a)
  else
    if b<>0 then Writeln('Корней нет')
    else Writeln('Любое число')
end.


4.2 -2.7
0.642857142857143

0 4
Корней нет

0 0
Любое число