(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo 11.30: 'Uso del procedimiento Write'

   Web del Autor: http://www.carlospes.com
  ______________________________________________*)

program EJE11301;

uses Crt;

var
   Nombre : String [7];
   Hermanos, Sobrinos : Integer;

begin
   ClrScr;

   Nombre := 'Timoteo';
   Hermanos := 2;
   Sobrinos := 4;

   Write( Nombre, ' tiene ', Hermanos,
          ' hermanos y ', Sobrinos, ' sobrinos.' )
end.