За числом определить декаду месяца — Pascal(Паскаль)

var
n:integer;
begin
readln(n);
writeln('---');
case n of 
    1..10:writeln('1 decade');
    11..20:writeln('2 decade');
    21..30:writeln('3 decade');
end;

end.