Заполните массив случайными числами в интервале[0,1000] и выведите номера всех элементов которые равные последнему элементу

Program z1;         var a: array[1..1500] of integer;         i,j,n: integer; begin         readln(n);         randomize;         for i: =1 to n do begin                 a[i]: =random(1001);         end;                 n: =n-1;                 for i: =1 to n do begin                         if a[i]=a[n+1] then begin                         write(i,' ')                         end                 end;         readln end.

какой графический редактор? paint? кажется что подразумевается не 7 виндоуз, потому поэксперементировать трудно

 

не знаю какое 3 заполнение там подразумевается - у меня пастель (сама не знаю что это)

 

при удерживании шифта рисуются линии только с шагом 45 градусов, те только горизонтальные и вертикальные и диагональные

 

но по интуиции мне почемуто кажется что должно было получится солнышко

февраль-3 месяц зимы

май-3 месяц весны

август-3 месяц лета

сентябрь не знаю как связать