Составить программу.Известна мера угла в радиамах. НАйти синус и косинус.(по паскалю)

---program xxx;var a,b,c,d:real;beginwriteln ('Введите меру угла');   b:=a*pi/180;                    c:=sin(b);                          writeln('c=sin(b)=',c);d:=cos(b);writeln('d=sin(b)=',d);readln;end.---Если будут ошибки или другие проблемы, напиши мне.---