Составить программу в паскале ​

const N=6;

var i,sum,count,min,x,count_us,count_m,count_p:integer;

var arr: array[1..N] of integer;

begin

 read(x);

 sum:=0;

 count:=0;

 min:=99999;

for i:=1 to N do

 begin

 readln(arr[i]);

 sum:= sum + arr[i];

 if arr[i] mod 2 <> 0 then inc(count);

 if arr[i] < min then min:= arr[i];

 if (arr[i] > x) and (arr[i] mod 5 = 0) then inc(count_us);

 if arr[i]<0 then inc(count_m) else inc(count_p);

 end;

 if count_m > count_p then write('Отрицательных чисел больше')

 else write('Положительных чисел больше')

 // Тут сделай вывод а-д если надо

end.

Объяснение: