{$codepage UTF8}

VAR a:integer;

    b:shortint;

    c:smallint;

    d:longint;

    e:byte;

    f:word;

BEGIN

  Write('Ingrese un integer ');Readln(a);

  Write('Ingrese un shortint ');Readln(b);

  Write('Ingrese un smallint ');Readln(c);

  Write('Ingrese un longint ');Readln(d);

  Write('Ingrese un byte ');Readln(e);

  Write('Ingrese un word ');Readln(f);

  Writeln('a = ',a);

  Writeln('b = ',b);

  Writeln('c = ',c);

  Writeln('d = ',d);

  Writeln('e = ',e);

  Writeln('f = ',f);

END.

{$codepage UTF8}

VAR a1,a2:integer;

    b1,b2:shortint;

    c1,c2:smallint;

    d1,d2:longint;

    e1,e2:byte;

    f1,f2:word;

    aux : longint;

BEGIN

  Writeln('Ingrese dos integer');

  Write('a1 : ');readln(a1);

  Write('a2 : ');readln(a2);

  aux:=a1;

  a1:=a2;

  a2:=aux; 

  Writeln('Intercambiados');

  Writeln('a1 : ',a1);

  Writeln('a2 : ',a2);

  Writeln('Ingrese dos shortint');

  Write('b1 : ');readln(b1);

  Write('b2 : ');readln(b2);

  aux:=b1;

  b1:=b2;

  b2:=aux;

  Writeln('Intercambiados');

  Writeln('b1 : ',b1);

  Writeln('b2 : ',b2); 

  Writeln('Ingrese dos smallint');

  Write('c1 : ');readln(c1);

  Write('c2 : ');readln(c2);

  aux:=c1;

  c1:=c2;

  c2:=aux;

  Writeln('Intercambiados');

  Writeln('c1 : ',c1);

  Writeln('c2 : ',c2);

  Writeln('Ingrese dos longint');

  Write('d1 : ');readln(d1);

  Write('d2 : ');readln(d2);

  aux:=d1;

  d1:=d2;

  d2:=aux;

  Writeln('Intercambiados');

  Writeln('d1 : ',d1);

  Writeln('d2 : ',d2);

  Writeln('Ingrese dos byte');

  Write('e1 : ');readln(e1);

  Write('e2 : ');readln(e2);

  aux:=e1;

  e1:=e2;

  e2:=aux;

  Writeln('Intercambiados');

  Writeln('e1 : ',e1);

  Writeln('e2 : ',e2);

  Writeln('Ingrese dos word');

  Write('f1 : ');readln(f1);

  Write('f2 : ');readln(f2);

  aux:=f1;

  f1:=f2;

  f2:=aux;

  Writeln('Intercambiados');

  Writeln('f1 : ',f1);

  Writeln('f2 : ',f2);

END.

{$codepage UTF8}

VAR a,b,aux : WordBool;

BEGIN

  a:=true;

  b:=false;

  Writeln('a=',a);

  Writeln('b=',b);

  aux:=a;

  a:=b;

  b:=aux;

  Writeln('a=',a);

  Writeln('b=',b);

END.

{$codepage UTF8}

VAR ESI,CS,ESD,

    LI,C,LD,

    EII,CI,EID,

    H,V:char;

BEGIN

  ESI:=#218; CS:=#194; ESD:=#191;

  LI:=#195; C:=#197; LD:=#180;

  EII:=#192; CI:=#193; EID:=#217;

  H:=#196; V:=#179;

  Writeln(ESI,H,CS,H,ESD);

  Writeln(V,'A',V,'B',V);

  Writeln(LI,H,CI,H,LD);

  Writeln(V,' C ',V);

  Writeln(EII,H,H,H,EID);

END.

{$codepage UTF8}

VAR ESI,CS,ESD,

    LI,C,LD,

    EII,CI,EID,

    H,V:char;

BEGIN

  ESI:=#201; CS:=#203; ESD:=#187;

  LI:=#204; C:=#206; LD:=#185;

  EII:=#200; CI:=#202; EID:=#188;

  H:=#205; V:=#186;

  Writeln(ESI,H,CS,H,ESD);

  Writeln(V,'A',V,'B',V);

  Writeln(LI,H,C,H,LD);

  Writeln(V,'C',V,'D',V);

  Writeln(EII,H,CI,H,EID);

END.

{$codepage UTF8}

TYPE

  Entero=Integer;

  EnteroLargo=LongInt;

  Palabra=Word;

BEGIN

END.

{$codepage UTF8}

TYPE

  Romanos = (I=1,V=5,X=10,L=50,C=100,D=500,M=1000);

  Dias = (Lunes,Martes,Miercoles,Jueves,Viernes,Sabado,Domingo);

  Meses = (Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,

           Noviembre,Diciembre);

  Primarios =(Rojo,Verde,Azul);

BEGIN

END.

{$codepage UTF8}

TYPE

  Romanos = (I=1,V=5,X=10,L=50,C=100,D=500,M=1000);

  Primarios =(Rojo,Verde,Azul);

BEGIN

  Writeln('Romanos');

  Writeln('I=',ord(I));

  Writeln('V=',ord(V));

  Writeln('X=',ord(X));

  Writeln('L=',ord(L));

  Writeln('C=',ord(C));

  Writeln('D=',ord(D));

  Writeln('M=',ord(M));

  Writeln('Colores Primarios');

  Writeln('Rojo=',Ord(Rojo));

  Writeln('Rojo=',Ord(Verde));

  Writeln('Rojo=',Ord(Azul));

END.

{$codepage UTF8}

TYPE

  Mayusculas = 'A'..'Z';

  Minusculas = 'a'..'z';

BEGIN

END.

{$codepage UTF8}

VAR a:single;

    b:real;

    c:double;

    d:extended;

    e:comp;

BEGIN

  Write('single = ');Readln(a);

  Write('real = ');Readln(b);

  Write('double = ');Readln(c);

  Write('extended = ');Readln(d);

  Write('comp = ');Readln(e);

  Writeln('single = ',a:10:3);

  Writeln('real = ',b:10:3);

  Writeln('double = ',c:10:3);

  Writeln('extended = ',d:10:3);

  Writeln('comp = ',e:10:3);

END.

{$codepage UTF8}

VAR a1,a2:single;

    b1,b2:real;

    c1,c2:double;

    d1,d2:extended;

    e1,e2:comp;

    aux:extended;

BEGIN

  Write('single');

  Write('a1 = ');Readln(a1);

  Write('a2 = ');Readln(a2);

  aux:=a1;

  a1:=a2;

  a2:=aux;

  Writeln('a1 =',a1:10:3);

  Writeln('a2 =',a2:10:3);

  Write('real');

  Write('b1 = ');Readln(b1);

  Write('b2 = ');Readln(b2);

  aux:=b1;

  b1:=b2;

  b2:=aux;

  Writeln('b1 =',b1:10:3);

  Writeln('b2 =',b2:10:3);

  Write('double');

  Write('c1 = ');Readln(c1);

  Write('c2 = ');Readln(c2);

  aux:=c1;

  c1:=c2;

  c2:=aux;

  Writeln('c1 =',c1:10:3);

  Writeln('c2 =',c2:10:3);

  Write('extended');

  Write('d1 = ');Readln(d1);

  Write('d2 = ');Readln(d2);

  aux:=d1;

  d1:=d2;

  d2:=aux;

  Writeln('d1 =',d1:10:3);

  Writeln('d2 =',d2:10:3);

  Write('comp');

  Write('e1 = ');Readln(e1);

  Write('e2 = ');Readln(e2);

  aux:=e1;

  e1:=e2;

  e2:=aux;

  Writeln('e1 =',e1:10:3);

  Writeln('e2 =',e2:10:3);

END.

{$codepage UTF8}

VAR letra:char;

BEGIN

  Write('Ingrese una letra : ');

  readln(letra);

  Writeln('Su ordinal es : ', ord(letra));

END.

{$codepage UTF8}

VAR numero:byte;

BEGIN

  Write('Ingrese un numero de 0-255 : ');

  readln(numero);

  Write('Caracter = ',chr(numero));

END.