char_real.pl0

我在三做的课程

PROGRAM XYZ;
CHAR C,D;
REAL E,F;
BEGIN
C:='U';
E:=10.5;
WRITE(C,E);
READ(D,F);
WRITE(D,F);
END.