Информатика=) / Паскаль / 1 лаба

var x: array[1..100] of integer;
m,n,i:integer;
begin
m:=0;
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do
   begin
   writeln('Введите x[', i, ']');
   readln(x[i]);
   end;
   for i:=1 to n do
begin
if x[i]>x[n] then m:=m+1;
end;
for i:=1 to n do
 begin
  if m>n/2 then
           if x[i] mod 3 = 0 then x[i]:=1;
  if m<n/2 then if x[i] mod 2 <>0 then x[i]:=-x[i];
end;
writeln();
writeln('Результирующий массив');

for i:=1 to n do
  begin
   write(x[i]:4);
   write;
  end;

  writeln;
  writeln('M = ', m);
end.