{* Задача 11 *}

Unit ZADAH11;
Interface
Implementation
Begin
 writeln('Формирование файл F целыми числами ci=2i+3i+1. Количество чисел равно n, где n-натуральное число.
Запись чисел файла F в файл G с отрицательным знаком. Последним числом в файл G записать сумму полученных элементов. ');
End.

Program zadah11;

Uses zadah11.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  G  : File Of integer;
  F  : File Of integer;
  i  : integer;
  j  : integer;
  n  : integer;
  s  : integer;
  c  : integer;
  c1 : integer;
  c2 : integer;
  Begin
  writeln; {* Пропускаем одну строку *}
  write('Vvedite n:');
  readln(n);
  Assign(G, 'C:g.txt'); {* Подключение к файлу 'C:g.txt' через переменную G *}
  Assign(F, 'C:f.txt'); {* Подключение к файлу 'C:f.txt' через переменную F *}
  Rewrite(F); {* Открытие файла для записи *}
For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
c1 := 1;
c2 := 1;
For j := 1 To i + 1 Do {* Переменная j увеличивается с 1 до i *}
  Begin
If j0 Then
  c := c * ( - 1);
write(G, c);
s := s + c;
End;
write(G, s);
close(F); {* Закрытие файла *}
close(G); {* Закрытие файла *}
reset(G); {* Подготовка переменной G для чтения из файла *}
writeln('Komponenty fajla j:');
While Not Eof(G) Do {* Пока не конец файла *}
  Begin
read(G, c);
write(c);
End;
readln; {* Ждем подтверждения пользователя *}
End.....