Составить программу, вычисляющую значение у, если: у= {х( в 3-е) - 2х(вот 2 ой)+ х, если > 1 { 2х- 5, если х< 1

Var
x:real;
begin
Read(x);
if (x > 1) then Writeln('y = ', x*x*x - 2*x*x + x);
if (x < 1) then Writeln('y = ', 2*x - 5);
end.