Составить программу, которая будет вводить пять целых чисел с клавиатуры и выводить на экран только те, которые принадлежат интервалам (0,5) и (-1,-8), либо выводить соответствующее сообщение.

Если требуется выводить соответствующее сообщение в случае, когда таких чисел нет:

var i, x, k : integer;

Begin

k:=0;

for i:=1 to 5 do begin

readln (x) ;

if ((x>0) and (x-8) and (x<-1)) then begin

k:=k+1;

writeln (x) ;

end;

end;

if k=0 then writeln ('нет таких чисел') ;

End.

Если требуется выводить соответствующее сообщение каждый раз когда число не входит в промежуток:

var i, x : integer;

Begin

for i:=1 to 5 do begin

readln (x) ;

if ((x>0) and (x-8) and (x<-1)) then

writeln (x)

else writeln (x,' не входит в промежуток') ;

end;

End.