Составьте программу для вычисления синуса угла заданного в градусах в паскаль

Var ugol:real;
begin
  write ('Ugol = ');
  readln (ugol);
  writeln (sin(ugol*pi/180):0:2);
end.