Pascal/Turbo Pascal - Se Debe utilizar PROCEDIMIENTOS, FUNCIONES

{Mira esto}

 var

 n : integer;

 begin

 write(' Entre un numero del [1 al 4] : ');

 readln(n);

 writeln;

 case n of

 1 : begin

 writeln('un elefante se balanceaba sobre la tela de una arana. Como veia');

 writeln('que no se rompia, fue a llamar otro elefante');

 end;

 2 : begin

 writeln('un elefantes se balanceaban sobre la tela de una arana. Como ');

 writeln('veia que no se rompia, fue a llamar otro elefante');

 end;

 3 : begin

 writeln('un elefante se balanceaba sobre la tela de una arana. Como ');

 writeln('veia que no se rompia, fue a llamar otro elefante');

 end;

 4 : begin

 writeln('un elefante se balanceaba sobre la tela de una arana. Como ');

 writeln('veia que no se rompia, fue a llamar otro elefante');

 end;

 end;

 readln;

 end.