vershina17.PAS

{* Задача 17 *}

Unit VERSHINA17;
Interface
Implementation
Begin
 writeln('Определить координаты вершины параболы y=ax2(x в квадрате)+bx+c(a≠0), коэффициенты a, b, c считать известными. ');
End.

Program vershina;

Uses vershina17.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  b : real;
  c : real;
  x : real;
  y : real;
Begin
  read(a, b, c);
  x := - b / (2 * a);
  y := a * x * x + b * x + c;
  writeln('x=', x);
  writeln('y=', y);
End.