Задание 1. Составить линейный алгоритм задачи. 1. Вычислить площадь произвольного прямоугольника. 2. Вычислить стоимость покупки, состоящей из нескольких тетрадей и нескольких карандашей (их стоимость устанавливается произвольно Задание 2. Составить разветвляющийся алгоритм задачи. 1. Составить алгоритм вычисления стоимости покупки с учётом скидки. Если сумма покупки больше 500 рублей, то скидка 3%.

Локальные сети-это сети,доступные определённому кругу лиц,это может быть несколько компьютеров в одном помещении соединённых частной сетью или кабелем,пользователи которых могут обмениваться друг с другом файлами,информацией.Локальные сети часто используют в офисах где все ПК соединены друг с другом,для того чтобы меняться документами и т.д.При этом файлы доступны только пользователям лок.сети.
Глобальная сеть или интернет-это сеть в которой обьеденены Пк со всего мира.С глоб.сети люди обмениваются информацией,файлами и т.д.Только в отличие от локальной сети они доступны всем.у каждого компьютера,привязанного к глоб.сети есть свой id.Он у каждого ПК разный,что позволяет выделить его среди других.В отличие от локальной.сети,глоб.сеть используют везде в кафе,магазинах и т.д.Локальная сеть полезна в определённом кругу лиц,для частного пользования,а интернетом пользуются все.

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

begin
  var a:=ReadArrInteger(30);
  Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
  var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
  Write('2. Мудреное среднее арифметическое ');
  if s.Count=0 then Writeln(-1) else Writeln(s.Average);
  Write('3. Наибольшая длина цепочки четных элементов ');
  var (l,l1):=(-1,0);
  foreach var t in a do
    if t.IsEven then l1+=1
    else begin
      l:=Max(l,l1);
      l1:=0
      end;
  Writeln(l);
  var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
  Writeln('Массив после удаления элемента');
  a:=a?[:k]+a?[k+1:]; a.Println;
  Write('5. Второй максимум ');
  a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.

Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133