ПаскальАВС. Вводятся 3 числа, нужно ввести их 1) в порядке возрастания 2) в порядке…

Var m: array [1… 3] of real; i,j: longint; k: real; begin read (m[1],m[2],m[3]); for i: =1 to 3 do for j: =3 downto i+1 do if m[i]>m[j] then begin k: =m[i]; m[i]: =m[j]; m[j]: =k; end; writeln (m[1],',m[2],',m[3]); end.2.var m: array [1… 3] of real; i,j: longint; k: real; begin read (m[1],m[2],m[3]); for i: =1 to 3 do for j: =3 downto i+1 do if m[i]