PROGRAM TEST3 (INPUT,OUTPUT);

  VAR CH,CH1: CHAR;
      I,J,K: INTEGER;
      X,Y: REAL;

BEGIN
  REPEAT
    WRITE("INTEGER"); READLN(I); WRITELN;
    WRITE("REALS"); READLN(X,Y); WRITELN;
    WRITE("CHARACTERS"); READLN(CH); READ(CH1); WRITELN;
    WRITELN(I,X,Y,"  ",CH,CH1)
  UNTIL CH = "E"
END.