Создать файл f, содержащий сведения о книгах. сведения о каждой из книг – это фамилия автора, название книги и год издания. с другой программы найти все книги данного автора, изданные с 1980 года. сохранить эту информацию в файле g.

Program primer; var f,g: text;     i,n,k: integer;           s,a,data: string;       begin assign(f,'f.txt'); assign(g,'g.txt'); rewrite(f); writeln('кол-во книг? '); readln(n); for i: =1 to n do begin writeln('фамилия автора, название и год издания книги № ',i,' ? '); readln(s); writeln(f,s);   // в фаил f забиваем данные end; close(f); writeln('укажите автора для поиска '); readln(a); rewrite(g); reset(f); for i: =1 to 2 do begin readln(f,s); if (pos(a,s)< > 0) then begin   //ищем автора data: ='';   for k: =length(s) downto 1 do begin              if (s[k]=' ') then begin                      data: =data+copy(s,k+1,length(s));         //смотрим дату                       break;                       end;                           end;                     end; if (strtoint(data) > = 1980) then writeln(g,s);   //сравниваем дату  end; close(f); close(g); end. abc pascal

Просто зайди в макет(находится в верхнем меню) там отступы есть, если что-то нужно дополнительно, выдели текст который нужно отредактировать и правой кнопкой мыши, и там че-то типо редактирование или настройки, ну короче разберёшься. там все можешь подстроить насчёт маркирование и нумерирование, также выдели текст и нажми правую кнопку мыши там выйдет окно с маркированием перейдёшь туда, там можешь выбрать тире, треугольники и другое, то что нужно. с нумерацией также