Website and domain for sale:

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

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.
Answer add