(* Chapter 10 - Program 1 *)
program Examples_Of_Write_Statements;

var Index  : byte;
    Count  : real;
    What   : boolean;
    Letter : char;
    Name   : string[10];

begin
   Writeln('Integer');
   Index := 17;
   Writeln(Index,Index);
   Writeln(Index:15,Index:15);

   Writeln;
   Writeln('Real');
   Count := 27.5678;
   Writeln(Count,Count);
   Writeln(Count:15,Count:15);
   Writeln(Count:15:2,Count:15:2);
   Writeln(Count:15:3,Count:15:3);
   Writeln(Count:15:4,Count:15:4);

   Writeln;
   Writeln('Boolean');
   What := FALSE;
   Writeln(What,What);
   Writeln(What:15,What:15);

   Writeln('Char');
   Letter := 'Z';
   Writeln(Letter,Letter);
   Writeln(Letter:15,Letter:15);

   Writeln('String');
   Name := 'John Doe';
   Writeln(Name,Name);
   Writeln(Name:15,Name:15);

   Writeln;
   Writeln('Text output','Text output');
   Writeln('Text output':15,'Text output':15);
end.




{ Result of execution

Integer
1717
             17             17

Real
 2.7567800000E+01 2.7567800000E+01
 2.75678000E+01 2.75678000E+01
          27.57          27.57
         27.568         27.568
        27.5678        27.5678

Boolean
FALSEFALSE
          FALSE          FALSE
Char
ZZ
              Z              Z
String
John DoeJohn Doe
       John Doe       John Doe

Text OutputText Output
    Text Output    Text Output

}