Составьте программу, которая определяет принадлежность точки к интервалу (-1, 6).​

program dsa;

var

 x : integer;

 begin

   writeln('Введите координату точки:');

   readln(x);

   if (x >-1) and (x<6) then

     write('Точка принадлежит')

   else

     write('Точка не принадлежит')

 end.

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.