e01.pl0

我在三做的课程

PROGRAM EX01;
VAR A,B,H,R,C[1~9];
CHAR CH;
REAL F,R;
BEGIN
  CH:='A';
  WRITE(CH);
  F:=100.123456;
  WRITE(F);
  A:=1; 
  B:=0; 
  FOR A:=0+1 TO 5+4 DO
  BEGIN
  B++;
  WRITE(B++);
  A++;
  WRITE(A)
  END;
END.