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

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