Program comparaison Var A,B,C : REAL ; Write(‘A,B,C’) ; READ(A,B,C) ; If(A>B and A<C) then Write(A ,’MAX’) ; If (B>A and B>C ) then Write (B ,’MAX’) ; If (C>A and C>B)then Write (C,’MAX’) ; End.