---

Вот текст с обоих изображений, переписанный с сохранением структуры и форматирования:

Практическое задание
Примечание: в программах указывать правильный путь нахождения файлов

1. В файле text.txt записаны строки. Вывести первую и третью из них на экран.
   (предварительно создать text.txt с тремя строками)

```pascal
var
  filetext: text;
  a,b,c:string;
begin
assign(filetext,'c:\text.txt');
reset(filetext);
readln(filetext,a);
readln(filetext,b);
readln(filetext,c);
close(filetext);
writeln(a);
writeln(c);
end.
```

2. Считать из файла input.txt числа (числа записаны в столбик). Затем записать их произведение в файл output.txt

```pascal
var p, x: integer;
  f: text;
begin
assign(f, 'input.txt');
reset(f);
p := 1;
while not eof(f) do begin
  readln(f, x);
  p := p * x;
end;
close(f);
assign(f, 'output.txt');
rewrite(f);
writeln(f, 'Произведение чисел ', p);
close(f);
end.
```

3. Дана строка S и текстовый файл. Добавить строку S в начало файла.

```pascal
var
  F_in,F_out: Text;
  Name,S: String;
begin
  Write('S: ');
  Readln(S);
  Assign(F_in,'c:\text.txt');
  Reset(F_in);
  Assign(F_out,'c:\text1.txt');
  Rewrite(F_out);
  Writeln(F_out,S);
  While not eof(F_in) do
  begin
    Readln(F_in,S);
    Writeln(F_out,S);
  end;
  Close(F_in);
  Close(F_out);
  Erase(F_in);
  Rename(F_out,'c:\text.txt');
end.
```

4. Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения.

```pascal
Program File_text;
var
  f1 : text;
  st : string;
  n: byte;
begin
assign (f1, 'file1.txt'); { связать с файлом file1.txt файловую переменную f1 }
rewrite (f1); { создать новый файл с именем file1.txt }
writeln ( f1, 'Очень полезно изучать'); { записать предложения в файл}
writeln ( f1, ' всем студентам ');
writeln (f1, ' язык Pascal ');
close (f1); { закрыть файл для записи }
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла f1 }
begin
readln (f1, st); { читаем строку из файла f1 }
writeln(st); { выводим на экран }
n:= length (st); { определяем длину строки }
writeln (' длина =',n);
end;
close (f1); { закрыть файл для чтения}
end.
```

Оформить отчет

Содержание отчета:

1. Тема.
2. Цель.
3. Ответы на контрольные вопросы
4. Выполнение практического задания.