Algoritimos para ler a procedencia de determinado produto (senteça case)

Program Pzim ;
var
cod: integer;
 Begin
 write('informe o codigo:');
 read(cod);
  case cod of   
 1:write('sul');
 2:write('norte');
 3:write('leste');
 4:write('oeste');
 5..6:write('nordeste');
 7..9:write('sudeste');
 10..20:write('centro oeste');
 21..30:write('noroeste');
 else
 write('invalido');
 end;
 End.