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