Написать программу на паскале, пожалуйста, срочно надо

var x,y:real;beginwriteln('Введите x');readln(x);if x>0 then y:=cos(x) else y:=sin(x);writeln(y);readln;end.