Запиши правильную последовательность так чтобы получилась программа в результ

Var
a: array [1..10] of integer;
i,j,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=Random(50);
write(a[i],);
end;
for i:=1 to 9 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно

Катио́н — положительно заряженный ион. Характеризуется величиной положительного электрического заряда: например, NH4+ — однозарядный катионаммония, Ca2+ — двухзарядный катионкальция.

Вот например у тебя есть 15 и 9 сразу будет ити 9 а потом 9