var
a, i: integer;
begin
Writeln('Введите 4 числа');
for i := 1 to 4 do
Readln(a);
if (a > -10) and (a < 15) then Writeln('Число принадлежит отрезку -10 & 15: ', a);
end;
end.
var
a, i: integer;
begin
Writeln('Введите 4 числа');
for i := 1 to 4 do
begin
Readln(a);
if (a > -10) and (a < 15) then Writeln('Число принадлежит отрезку -10 & 15: ', a);
end;
end.