Задача в Паскале: Создать текстовый файл f и  g, компанентами которого являются случайные целые числа. Записать в файл h сначала компаненты файла f, а затем компоненты файла g с сохранением порядка.

const   n = 10; //количество чисел, которое нужно сформировать   First = -10; //С какого числа должны генерироваться случайные числа   Second = 15;{По какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)} var   f, g, h: text;   i: integer;   Number: array [1..n] of integer;{Массив, в который записываются числа, считанные из файлов} begin   randomize;   assign(f, 'f.txt');//Инициализируем файл f   assign(g, 'g.txt');//Инициализируем файл g   assign(h, 'h.txt');//Инициализируем файл h   rewrite(f);//Открываем файл f для записи   for i:= 1 to n div 2 do write(f, random(abs(First) + abs(Second)) + First , ' ');{Первую половину чисел записываем в файл f}   close(f);//Закрываем файл f   rewrite(g);//Открываем файл g для записи   for i:= (n div 2) + 1 to n do write(g, random(abs(First) + abs(Second)) + First, ' ');{Вторую половину случайно сгенерированных чисел записываем в файл g}   close(g);//Закрываем файл g   reset(f);//Открываем файл f для считывания   for i:= 1 to n div 2 do read(f, Number[i]);{Первую половину чисел считываем из файла f в массив}   close(f);//Закрываем файл f   reset(g);//Открываем файл g для считывания   for i:= (n div 2) + 1 to n do read(g, Number[i]);{Вторую половину чисел считываем из файла g в массив}   close(g);//Закрываем файл g   rewrite(h);//Открываем файл h для записи   for i:= 1 to n div 2 do write(h, Number[i], ' ');{Первую половину считанных чисел из массива записываем в файл h}   writeln(h);//Перевод на новую строку в файле h   for i:= (n div 2) + 1 to n do write(h, Number[i], ' ');{Вторую половину считанных чисел из массива записываем в файл h}   close(h);//Закрываем файл h end. Все файлы создаются там же, где находится файл программы.