else.pl0

编译原理课程设计 编译原理课程设计

PROGRAM P1;

VAR I,MAX:INTEGER; X,Y:INTEGER;
BEGIN
    READ(I,X,Y);
    IF I>X THEN 
        MAX:=I 
    ELSE MAX:=X;

   IF Y>MAX
    THEN MAX:=Y;
  WRITE(MAX);
END.