вычислить на языке паскаля f(x)= sin(x), если x>0; cos(x), в остальных случаях

Внимание, на вход данной программы принимаются радианы, а не градусы.var     x:real;beginreadln(x);if(x>0) then writeln(sin(x))else writeln(cos(x));end.