var

   a, b, c, x : real;

begin

   readln(a, b, c);

   x := (c-b)/a;

   writeln(x);

end.

я не помню как Лазарус выводит значения, вполне возможно что в экспоненциальном формате. Если да то нужно будет добавить форматированный вывод. А так ответы должны быть такими:

1)

2 8 18

5

2)

20 5 5

0