<span>По логике так:
Надо расположить по возрастанию, то есть первое </span>меньше второго, второе меньше<span> третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало.
2) Сравни первое и второе числа; если первое </span><u>больше</u><span> второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе </span><u>больше</u><span> третьего, то поменяй их местами.
4)Если теперь три числа <u>не </u></span><u>расположены</u> в порядке убывания, то исполни пункт 5) этого алгоритма; иначе <u>вернись</u><span> к пункту 2).
5</span>)Конец.
Prt Sc клавиша.
Потом просто вставляешь картинку
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.