Срочно! Вивести на екран 3 задані цілі числа в порядку зростання в паскалі.

Program chisla; Var a: array[1… 3] of integer; i,j,x,v: integer; beginfor v: =1 to 3 doreadln (a[v]); for i: =1 to 3-1 dofor j: =i+1 to 3 doif a[i]>a[j] thenbegin x: =a[i]; a[i]: =a[j]; a[j]: =x; end; for v: =1 to 3 do write (a[v],','); writeln; end.