Вычислить на языке паскаля 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.