else.pl0

来自「我在三做的课程」· PL0 代码 · 共 15 行

PROGRAM EX;
VAR I,X,Y,MAX;
BEGIN
 I:=100;
 IF I>50 THEN WRITE(I);
 IF I<>50 THEN WRITE(I+900);
 READ(I,X,Y);
    IF I>X THEN 
        MAX:=I 
    ELSE MAX:=X;
   IF Y>MAX
    THEN MAX:=Y;
  WRITE(MAX);
END.