Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);<br> if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.