На паскале❤️❤️❤️Пользователь вводит координаты вершины выпуклого многоугольника, начиная с некоторой и по часовой стрелке. Программа вычисляет площадь этого многоугольника. Если известны координаты вершин треугольника (х1;у1), (х2;у2), (х3;у3), то его площадь вычисляется по формуле
S=1/2 | (х2-х1)(у3-у1)-(х3-х1)(у2-у1) |​

Я считаю, что мир сильно не изменится. Изменится только то как люди будут проводить свое свободное время.  Вместо того, чтобы проводить его в одиночестве, сидя перед экраном своего ноутбука, они будут собираться вместе, играть футбол , хоккей и другие игры , придумывай совместные развлечения, занимайся чтением и тем , что каждому нравится. Но есть и минусы . Без интернета людям сложнее и дольше придётся искать нужную информацию. Также они не смогут общаться без рамок на основе языков и культур, не смогут делать покупки через интернет , заниматься обучением, узнавать независимую информацию о том или ином событии . Я бы не хотела , чтобы интернет исчез, потому что он позволяет мне общаться с разными интересными людьми, смотреть любимые фильмы, учиться, выполнять домашние задания  и многое другое.  Я считаю , что интернет очень облегчило жизнь человека. Только нам надо научиться правильно им пользоваться.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=readInteger('Элементов в массиве:');
  var a:=ArrGen(n,i->3-i*2+i,1);
  a.Println; Writeln; a.PrintLines;
  Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
  Writeln('Отрицательных: ',a.Where(t->t<0).Count);  
  a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.

Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4

2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4