Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Pzim ;
- var cod:integer;
- Begin
- readln(cod);
- case cod of
- 1: writeln('Sul');
- 2: writeln('Norte');
- 3: writeln('Leste');
- 4: writeln('Oeste');
- 5..6: writeln('Nordeste');
- 7..9: writeln('Sudeste');
- 10: writeln('Centro-Oeste');
- 11: writeln('Noroeste');
- else
- writeln('Importado');
- end;
- End.
Advertisement
Add Comment
Please, Sign In to add comment