Кто объяснит каждую строчку

var
n,i,e:integer;
s,d:string;
begin
Write('s:');
Readln (s);
Write('n:');
Readln (n);
d:=s[1];
for i:=2 to Length(S) do
begin
for e:=1 to N do d:=d+'*';
d:=d+s[i];
end;
Writeln(d);
end.​

- модемное. делится на коммутируемое (Dial-Up - с набором номера) и постоянное (по выделенной линии). Второй вариант, как правило через ADSL-модем, скорость гораздо выше первого.
- спутниковый. требует наличия тарелки и доп. оборудования
-  Ethernet-подключение (через локальную сеть). Используются оптоволоконные кабели или витая пара (UTP)
- мобильное беспроводное 3G - 4G пдключение.  Очень низкое качество и скорость
- WiFi. малый радиус действия - не далее 50-100 метров от роутера.

внедрение локальных сетей позволяет решать вопросы доступа к данных и распределенной обработке их всеми сотрудниками предприятия.  Реализуется посредством ионтажа локальной сети и созданием структурированной кабельной сети.

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

Алгоритм:
выставляем некий индикатор = 0
идем по массиву
если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента.
Если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение.

Прога:
program test1;
var
M1: array [1..60] of integer;
ind, i: integer;

begin
ind :=0;
i := 1;
repeat
if M1[i]>7  then
begin
writeln(i);
ind := 1;
i :=  60;
end;
inc(i);
if ((i>60) and (ind=0))
begin
writeln('массив не содержит элементов, больших 7');
ind := 1;
end;
until(ind=1);
end;