Информатика=) / Паскаль / 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.