Впаскале: создать текстовый файл 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); //закрываем файл hend.

все файлы там же, где находится файл программы.

+2): 3+4): 5+6): 7+8): 9=1

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.