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

Program primer; var   f: text;   i, j, h: byte;   l, k: smallint;   s, s1, s2, m: string; begin assign(f, 'f.txt'); {путь к файлу}   reset(f);     read(f, s);   s : = ' ' + s + ' ';   close(f);   writeln('укажите 2 слова через строчку');   readln(s1);   readln(s2);   i : = 0; j : = 0; m : = s; k : = 1;   while k < > 0 do     begin     k : = pos(' ' + s1 + ' ', m);     if (k < > 0) then inc(i);     delete(m, 1, k + length(s1));   end;   k : = 1; m : = s;   while k < > 0 do     begin     k : = pos(' ' + s2 + ' ', m);     if (k < > 0) then inc(j);     delete(m, 1, k + length(s2));   end;   m : = s; k : = 1; h: =0;   while (k < > 0) or (l < > 0) do     begin        k : = pos(' ' + s1 + ' ' + s2 + ' ', m);     l : = pos(' ' + s2 + ' ' + s1 + ' ', m);     if (k < > 0) or (l < > 0) then inc(h);       delete(m, 1, k + l + length(s2 + s1) + 1);     end;   writeln('количество слов соответствующих первому = ', i);   writeln('количество слов соответствующих второму = ', j);     writeln('непосредственно друг за другом     х', h); end.

Pascalabc.net const //формат файла   //фамилия имя номер     fl = 'd: \phone.txt';     var    t : text;     c : char;     fnm,s : string;   begin  assign (t,fl);   reset (t);       writeln ('укажите фамилию');   readln (fnm);   writeln();         while not eof (t) do    begin      s : = '';             //считываем фамилию read (t,c);           while c < > ' ' do        begin        s : = s + c;         read (t,c);         end; //если фамилию нужная то дочитываем              //иначе переходим к следующему if s = fnm then      begin        write (s+' ');         while not eoln(t) do          begin          read (t,c);           write (c);           end;         readln (t);         writeln ();       end      else      readln (t);           end;   close (t);   end.