Задание на Откройте полученный в задании № 1 документ и создайте под новым именем его копию.

В копии установите новые поля документа (все по 2 см).

Разбейте текст копии на 6 абзацев.

Из копии удалите четвертый абзац и первое предложение шестого.

В оставшемся тексте расставьте абзацы в обратном порядке.

Разрешите перенос слов.

Найдите в тексте одинаковые слова и выделите их курсивом.

Найдите в тексте однокоренные слова и подчеркните их корни.

Проверьте орфографию текста, используя встроенный словарь.

Сохраните документ под новым именем и пришлите его на проверку в формате .doc или .docx.

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины 

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

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

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.