Четыре девочки ели мандарины аня съела больше чем юля . ира- больше чем леся но меньше чем юля . раставь имена девочек в порядке возрастания количества мандаринов которые они съели

Леся ,   ира,     юля, аня

Вроде бы так: аня юля ира леся

Var a: array[1..5,1..5] of integer; i,j: integer; begin writeln('исходный массив: '); for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if (j> i) then a[i,j]: =3               else if (j< i) then a[i,j]: =0                         else a[i,j]: =7;               write(a[i,j]: 3,' ')               end;       writeln;       end; end.

Program a23; const       max = 42; var       vt: array[1..max]of integer;       i,n: byte;       x: integer;       num: integer; begin   n : = max;   writeln('массив из n элементов будет задан случайными числами на интервале [0..20].');   readln(n);     writeln('подсчитать количество положительных элементов больших чем указанное число.');   writeln('введите число: '); readln(x);   writeln(' ');   writeln('начальный массив' );   randomize;   num : = 0;   for i: =1 to n do begin       vt[i]: =random(-512,512);       write(vt[i], ' ');             if (vt[i]> 0) then           num: =num+1;             end;   writeln(' ');   writeln('найдено ', num,' положительных элементов больших чем ', x);   end.