'BEGIN' 'COMENT' ARITHMETIC DEMO; 'REAL' A,B,RSUM,RDIF,RPRD,RQUO; 'INTEGER' I,J,ISUM,IDIFF,IPRD,IQUO; WRITE (1, "TYPE TWO REAL NUMBERS");SKIP; READ (1, A,B);SKIP; RSUM:=A+B; WRITE (1,A," PLUS ",B,"=",RSUM);SKIP; RDIF:=A-B; WRITE (1,A," MINUS ",B,"=",RDIF);SKIP; RPRD:=A*B; WRITE (1,A," TIMES ",B,"=",RPRD);SKIP; RQUO:=A/B; WRITE (1,A," DIVIDED BY",B,"=",RQUO);SKIP; WRITE (1, "TYPE TWO INTEGERS");SKIP; READ (1, I,J);SKIP; ISUM:=I+J; WRITE (1,I," PLUS ",J,"=",ISUM);SKIP; IDIF:=I-J; WRITE (1,I," MINUS ",J,"=",IDIF);SKIP; IPRD:=I*J; WRITE (1,I," TIMES ",J,"=",IPRD);SKIP; IQUO:=I/J; WRITE (1,I," DIVIDED BY",J,"=",IQUO);SKIP; 'END' $