Решить систему уравнений в паскале . 3x x< -1 y= sinx-cosx -11

Var x,y : real; begin   write('введите значение x=');   readln(x);   if (x> -3) and (x< 5) then     begin     if x< -1 then y: =3*x             else if x< 1 then y: =sin(x)-cos(x)                         else y: =x*x+1/2*x-7;     writeln('при x=',x,'   y=',y)     end     else writeln('при x=',x,' функция не определена') end.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.ToWords.Select(w->w.Inverse).Println
end.

Пример
А роза упала на лапу Азора
А азор алапу ан упал арозА

Замечание: ограничение на длину предложения отсутствует. Пробелов между словами может быть и несколько.

Нет. так как мы не знаем число людей, которые хотят туда

В байте 8 бит. 8 мегабайт это 8*8 мегабит. 8*8/4=( для меня слишком много )