{* Задача 562 *}

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

Program zadach562;

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