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

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