home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TPEX.ZIP / C6EX1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-09-01  |  422 b   |  22 lines
  1. PROGRAM C6ReviewExercise1;
  2.  
  3. USES Crt;
  4.  
  5. VAR     ShoeSize:     BYTE;
  6.         Weight:       BYTE;
  7.         Height:       BYTE;
  8.  
  9. CONST   Spc = ' ';
  10.  
  11. BEGIN
  12.    CLRSCR;
  13.    ShoeSize := 11;
  14.    Weight := 204;
  15.    Height := 73;
  16.    WRITELN( 'Shoesize is: ', ShoeSize );
  17.    WRITELN( 'Weight is: ', Weight );
  18.    WRITELN( 'Height is: ', Height );
  19.    WRITELN;
  20.    WRITELN( Shoesize, Spc:1, Weight, Spc:1, Height );
  21. END.
  22.