program pptest14(input, output);

  const
    one = 12;
    two = 'TWO';

  var
    ch: char;
    i: integer;
    x: real;
    b: boolean;
    name: packed array [1 .. 10] of char;

  begin
  { read, readln }
    read(ch);
    read(i);
    read(x);
    readln(ch, i, x);
    readln;

    { write,writeln }
    write(ch);
    write(i);
    write(x);
    write(ch: one);
    write(x: 12: 2);
    write(one, two);
    writeln('CHAR ', ch, 'INTEGER ', i, 'REAL ', x);
    writeln(name);
    write(name: 20);
    writeln;
    write(b);

    { get,put }
    ch := input^;
    get(input);
    output^ := ch;
    put(output);
    output^ := name[1];
    put(output);

    {eof,eoln }
    b := eof;
    b := eof(input);
    b := eoln;
    b := eoln(input);
    b := eof and b;

    { page }
    page;
    page(output)
  end { pptest14}.