Напишите процедуру,которая переставляет три переданные ей числа в порядке возрастания.
Пример:
10 15 5
5 10 15

program Program1;var arr: array[1..3] of real;i, z, h: integer;procedure swap(var x, y: real);var t: real;begin t := x; x := y; y := tend;beginwriteln('Введите три числа:');for i := 1 to 3 do read(arr[i]);for h := 1 to 3 - 1 dofor z := 1 to 3 - h doif arr[z] > arr[z + 1] thenswap(arr[z], arr[z + 1]);for i := 1 to 3 do write(arr[i], ' ');end.