Program calc;Var x,y: real;BeginWrite('Первое число:');readln (x);y := (1-x*2+5*x*4)*2;// y := pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степениWrite ('Результат:',y);End.
Program calc;
Var x,y: real;
Begin
Write('Первое число:');
readln (x);
y := (1-x*2+5*x*4)*2;
// y := pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степени
Write ('Результат:',y);
End.