Для модеров могу им жалобб у скинуть у разрабов я уже отправил разрабам если еще раз такое будет то тоже могу скинуть чтоб они отменили вас от модеров
Для обычных ПАМАГИТИ​

Пронумеруем исходные утверждения. 1) круг не белый и не зеленый. 2) синяя фигура лежит между ромбом и красной фигурой. 3) треугольник не синий и не зеленый. 4) квадрат лежит между треугольником и белой фигурой. теперь рассмотрим каждое из них. из (1) круг не белый, а из (4) не белые также квадрат и треугольник. следовательно, белым может быть только ромб. 5) если ромб белый, то он не зеленый. не зеленые также круг (1) и треугольник (3). тогда зеленый квадрат. 6) если квадрат зеленый (5), то он не синий и не красный. не синие также ромб (2) и треугольник (3). следовательно, синий круг. 7) треугольник красный, поскольку остальные цвета уже распределены. ответ: квадрат зеленый, круг синий, ромб белый, треугольник красный.

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.

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