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

1. uses Math;

Задание 1

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  y := Sqr(x) - 7 * Sin(x) + Cos(x);
11.  
12.  Writeln('y = ', y);
13. end.

Задание 2

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  y := Sqr(Cos(2 * x + 25));
11.  
12.  Writeln('y = ', y);
13. end.

===== PascalABC.NET =====

begin

   var x := ReadReal;

   Print(x * x - 7 * Sin(x) + Cos(x));    // 1

   Print(Sqr(Cos(2 * x + 25)))    // 2

end.