Напишите программу на Pascal для решения системы уравнений

Если используете PascalABC.NET, уберите следующую строку:

uses Math;Задание 1uses Math;var  x, y: real; begin  Write('Введите x: ');  Readln(x);    if (x < 6) then    y := Power(x, 4.0)  else y := 5 * x;    Writeln('y = ', y);end.Задание 2uses Math;var  x, y: real; begin  Write('Введите x: ');  Readln(x);    if (x < 2) then    y := Sqrt(Sqr(x))  else if (x > 2) and (x < 10) then    y := Abs(10 * x)  else if (x > 10) then    y := Sqr(Sin(2 * x));    Writeln('y = ', y);end.