Дано N ( от 1 до 30) и вещественное х. Найти sinsin…sinx (N — количество операций sin) — Pascal(Паскаль)

uses crt;
function Rec(x:real;n:byte):real;
begin
if n=1 then Rec:=sin(x) else Rec:=sin(Rec(x,n-1));
end;
var x:real;
    n:byte;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Введите n от 1 до 30 n=');
readln(n);
until n in [1..30];
write('Результат=',Rec(x,n):0:5);
readln
end.