max.pl0

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

PROGRAM MAIN;
VAR A,B,C,MAX;
BEGIN
  READ(A,B,C);
  IF A>B THEN
    MAX:=A
  ELSE MAX:=B;
  IF C>MAX THEN
    MAX:=C;
  WRITE(MAX)
END.