e01.pl0

PL/0语言是Pascal语言的一个子集

PROGRAM EX01;
CONST A=10;
VAR B,C,D;
ARRAY E[1:10];
BEGIN
READ(B,C);
IF B<>C THEN
BEGIN
B+=C;
C++;
WRITE(C)
END
ELSE
BEGIN
FOR D:=1 TO 10 DO
BEGIN
E[3]:=C;
C--;
WRITE(E[3],C);
END
END;
E[3]:=A;
FOR D:=10 DOWNTO 1 DO
BEGIN
C-=E[3];
WRITE(C)
END
END.