Этапом формирования информационного общества можно назвать:

1 выработка единых правил поиска информации и поведения в сети

2 создание телекоммуникационной инфраструктуры, включающей в себя сети передачи данных;

3 все перечисленное
4 появление баз данных, доступ к которым доступен потребителям

Var
  a,b,h,x,y:real;
begin
  writeln('Введите начальное значение, шаг, конечное значение');
  readln(a,h,b);
  x:=a;
  while x<=b do begin
    y:=0.5/tan(x/4)+4;
    writeln(x:7:3,y:10:5);
    x:=x+h
  end
end.

Тестовое решение:

Введите начальное значение, шаг, конечное значение
-5 0.5 5
 -5.000   3.83386
 -4.500   3.76106
 -4.000   3.67895
 -3.500   3.58244
 -3.000   3.46329
 -2.500   3.30698
 -2.000   3.08476
 -1.500   2.72976
 -1.000   2.04184
 -0.500   0.02086
  0.000  Infinity
  0.500   7.97914
  1.000   5.95816
  1.500   5.27024
  2.000   4.91524
  2.500   4.69302
  3.000   4.53671
  3.500   4.41756
  4.000   4.32105
  4.500   4.23894
  5.000   4.16614

Var
  ptr: integer;

function GetWord(s: string): string;
// Возвращает очередное слово из строки s или пустое значение,
// если в строке больше нет слов.
// Перед вызовом позиция начала слова указывается переменной ptr.
// Перед выходом ptr устаналивается на границу следующего слова
// ptr=0 означает, что вся строка просмотрена.
var
  n, p: integer;
begin
  n := Length(s);
  if (ptr >= n) or (ptr=0) then begin
    ptr := 0;
    Result := ''
  end
  else begin
    p := PosEx(' ', s, ptr);
    if p > 0 then begin
      Result := Copy(s, ptr, p - ptr);
      ptr := p + 1
    end
    else begin
      Result := Copy(s, ptr, n - ptr + 1);
      ptr := 0
    end
  end
end;

var
  s1, s2, s: string;
  n: integer;

begin
  writeln('Вводите строку');
  readln(s1);
  ptr := 1;
  s2 := '';
  repeat
    s := GetWord(s1);
    n := Length(s);
    if n > 0 then
      if (s[1] <> 'о') or (s[n] <> 'о') then
        s2 := s2 + s + ' '
  until n = 0;
  n := Length(s2);
  if s2[n] = ' ' then
    s2 := Copy(s2, 1, n - 1);
  writeln('Результирующая строка: ', s2)
end.

Тестовый прогон:

Вводите строку
В это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.
Результирующая строка: В это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.