SHJordan

Untitled

Apr 11th, 2016
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. Program Pzim ;
  2. var cod:integer;
  3. Begin
  4.   readln(cod);
  5.   case cod of
  6.     1:  writeln('Sul');
  7.     2:  writeln('Norte');
  8.     3:  writeln('Leste');
  9.     4:  writeln('Oeste');
  10.     5..6:  writeln('Nordeste');
  11.     7..9:  writeln('Sudeste');
  12.     10:  writeln('Centro-Oeste');
  13.     11: writeln('Noroeste');
  14.     else
  15.     writeln('Importado');
  16.   end;
  17. End.
Advertisement
Add Comment
Please, Sign In to add comment