PROGRAM EXPONZ(INPUT,OUTPUT,INFILE,OUTFILE);
VAR PI, SPI :CHAR;INFILE,OUTFILE:TEXT;
 R1 :REAL;
BEGIN
RESET(INFILE);
REWRITE(OUTFILE);
WHILE NOT EOF(INFILE) DO
  BEGIN
READ(INFILE,PI);
WRITELN(OUTFILE,'  CHAR IS ',PI);
  END;
READ(R1);
WRITELN(R1);
END.