Составьте программу в паскале f(x)=sin x-cos x

Var x,f:real;
begin
  write('Введите х:');
  readln(x);
  f:=sin(x)-cos(x);
  writeln('sin(',x,')-cos(',x,')=',f);
end.

Тестовое решение:
Введите х:125
sin(125)-cos(125)=-1.40375497133289