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

program dsa;

var

 x : integer;

 begin

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

   readln(x);

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

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

   else

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

 end.

революция 1917 года и великая отечественная война (1941-1945)

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.