program laba7_3;
 const n=5;
 var m:array[1..n] of integer;
 k,i,j:integer;
 Begin
      writeln('Vvedit massiv');
      for i:=1 to n do
      read(m[i]);
          for i:=1 to n-1 do
          for j:=i+1 to n do
              if (m[j]>m[i]) then
                begin
                   k:=m[i];
                   m[i]:=m[j];
                   m[j]:=k;
              end;

      writeln('vidsort mas');
      for i:=1 to n do
      writeln(m[i],' ');
      readln(m[i]);
end.

read(m[i])

readln(m[i]);

readln;