Значения переменных X, Y, Z поменять местами
так, чтобы они оказались упорядоченными по возрастанию. 

var a: array[1..3] of integer;     i,j,b: integer; begin writeln ('Vvedite 3 chisla'); readln (a[1],a[2],a[3]);   for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then begin b:= a[j]; a[j]:= a[j+1]; a[j+1]:= b; end;   for i:= 1 to 3 do write (a[i],' '); readln; end.