Составьте программу "if" ** языке Паскаль АВС. Пожалуйста. До завтра надо(((

Question

Составьте программу "if" на языке Паскаль АВС. Пожалуйста. До завтра надо(((

---

Answer 1

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if (-1<=x)and(x<=1) then WriteLn('f(',x,') = ',4-2*x*x)<br>else if (1     else WriteLn('Функция не определена')
End.