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.