Ввести x, если x<=0, то y=(sin(x))-cos(x), иначе y= 5x^2-(sin^2(x))

а откуда 2?\

опечаталась) просто убери)

y:=5*x*x-sin(x)*sin(x)?

так?

Да)

var x, y:real;  begin write ('Введите х: '); readln (x);if x<=0 theny:=sin(x) - cos(x)elsey:=5*x*x-2*sin(x)*sin(x)write(y);readln end.

Программа в Pascal,ABC,Netvar  x,y:real;begin  Write('Введите х: '); Readln(x);  if x<=0 then y:=sin(x)-cos(x)  else y:=5*sqr(x)-sqr(sin(x));  Writeln('y=',y)end.Тестовое решение:Введите х: 0.137y=0.0751931316536888