Website and domain for sale: mail@discussmain.com

to define whether belongs three numbers to the piece set from the keyboard are entered

89
Var a, b, c, d, e: real; Begin WriteLn (Piece [a, b]); Write (a =); ReadLn(a); Write (b =); ReadLn(b); WriteLn (Enter three numbers); ReadLn (c, d, e); if (a< = c) and (a< = d) and (a< = e) and (c< = b) and (d< = b) and (e< = b) then WriteLn (Numbers belong to the set piece) else WriteLn (Numbers do not belong to the set piece); ReadLn End.
31
Answer add