program Project1;

const
_F:array[1..7] of integer=(16,19,21,20,12,31,29); //Исходные данные
var
f,g:textfile; //файлы в которые будем писать
i:integer; // счетчик
begin
Assign(f,'f.dat');  //Открыть файл f
Rewrite(f); //на запись
for i:=1 to 7 do // 7 раз повторить
Writeln(f,_F[i]); //записать в файл f, значение массива _F с индексом i
CloseFile(f); //Закрыть файл

Assign(g,'g.dat'); //Открыть файл g
Rewrite(g); //на запись
for i:=1 to 7 do begin  // 7 раз повторить-----------------------------------------------|
if _F[i] mod 5 = 1 //если при делении значения массива _F с индеком i на 5, остаток = 1  |
Then Writeln(g,_F[i]); //тогда записать это значение в файл g                            |
if _F[i] mod 5 = 4 //если при делении значения массива _F с индеком i на 5, остаток = 1  |
Then Writeln(g,_F[i]); //тогда записать это значение в файл g                            |
end; // вот тут повтор заканчивается-----------------------------------------------------|
CloseFile(g); //Закрыть файл g
end.