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

Программа в Pascal,ABC,Net
var
  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.137
y=0.0751931316536888

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