{* Задача 423 *}

Unit ZADACH423;
Interface
Implementation
Begin
 writeln('Дано значение х. Получить значения — 2х + Зх2 — 4х3 и 1 + 2х + Зх2 + 4x3. Позаботиться об экономии операций');
End.

Program zadach423;

Uses zadach423.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : real;
  y : real;
Begin
  readln(x);
  y := x * (-2 + x*(3 - 4*x));
  writeln(y);
  y := 1 + x*(2 + x*(3 + 4*x));
  writeln(y);
  readln; {* Ждем нажатия Enter *}
End.