(* 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.