var    a, b, c, x : real;begin    readln(a, b, c);    x := (c-b)/a;    writeln(x);end.я не помню как Лазарус выводит значения, вполне возможно что в экспоненциальном формате. Если да то нужно будет добавить форматированный вывод. А так ответы должны быть такими:1)2 8 1852)20 5 50