Дан файл целых чисел, содержащий четное количество элементов. Удалить из данного файла вторую половину элементов.

program zz1;

var

n, i: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

mas:array[1 ... 100] of integer;

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

while not eof (f1) do

begin

i:=i + 1;

read (f1, mas[i]);

end;

n:=i;

close (f1); / / закрываем файл input

assign (f2, 'input. txt');

rewrite (f2); / / открываем файл для записи

for i:=1 to n div 2 do

writeln (f2, mas[i]); / / выводим ответ

close (f2); / / закрываем файл input

end.