{* Задача 561 *}

Unit ZADACH561;
Interface
Implementation
Begin
 writeln('Дано x. Вычислить 2x⁴ - 3x³ + 4x² - 5x + 6. Позаботиться об экономии операций. ');
End.

Program zadach561;

Uses zadach561.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  x : real;
  s : real;
Begin
  clrscr; {* Очищаем экран *}
  write('x=');
  read(x);
  s := x * (x * (x * (2 * x-3) + 4) - 5) + 6;
  writeln('s=', s : 3:3);
  readkey; {* Ждем нажатия пользователя *}
End.