Program Max; Var a, b, c: Integer; Begin Read(a); Read(b); Read(c); If (abs(a) >10000) Or (abs(b) > 10000) Or (abs(c) > 10000) Then WriteLn('Error!') Else Begin If(a>b) Then Begin If(a > c) Then WriteLn('First number is maximal') Else WriteLn('Third number is maximal') End Else If(b > c) Then WriteLn('Second number is maximal') Else WriteLn('Third number is maximal'); End; ReadLn; End.