Найдите соответствие между понятиями и определениями

​

Сейчас мы часто пользуемся интернетом, но хорошо это или плохо? Давайте разберем сначала плюсы интернета. Интернет находить нужную информацию, ты можешь легко найти кучу информации обо всем, что тебе нужно. Ты легко можешь общаться с друзьями и дальними родственниками. Так же ты можешь начать обучатся языкам или же какими-то предметами, которые тебя интересуют и которых нет в школьной программе, это и является самообразованием. Еще ты можешь «подтянуть» предмет, который ты плохо знаешь, ведь в интернете есть много разных учебников. Теперь с интернета не надо тратить деньги на книги ведь любую книгу можно скачать даже бесплатно. Ладно с плюсами разобрались, теперь давайте с минусами. Минусы интернета. Одни из самых банальных минусов это игры. Они есть как бесплатные так и платные, но оба варианта вызывают зависимость. Люди не замечают как сидят целыми днями за игрой которая не имеет смысла. В случаи подростка: снижается успеваемость в школе, отдаление от социального общества и т.п. Сейчас стало очень много спама в интернете и порнографии, и конечно же интернет является главным источником СМИ, что приводит к недостоверной информации (желтая пресса). Так как уследить за всеми сайтами не возможно, то появляются сайты через которые люди пропагандируют, даже например ислам, или говорят что наркотики это круто, даже если это не так. Я хочу сказать что в интернет есть положительные стороны и отрицательные, но если ты разумный человек ты будешь использовать интернет только по необходимости.

Procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  for i := 0 to 31 do
  begin
    Chislo := 3;
    for j := 0 to 4 do
    begin
      if ((i and Trunc(IntPower(2,j)))=0) then
        Dec(Chislo)
      else
        Chislo := 3*Chislo;
      if (Chislo=16) then
      begin
        Memo1.Lines.Append('УРА - Нашли');
        for k := 0 to j do
          if ((i and Trunc(IntPower(2,k)))=0) then
            Memo1.Lines.Append('1')
          else
            Memo1.Lines.Append('2');
        Memo1.Lines.Append('');
      end;
    end;
  end;
end;