Пожалуйста помогите, составьте на Паскале программу упорядочения по возрастанию значений в трёх переменных: X, Y, Z.

program chisla;uses crt;var a,b,c : integer;beginWriteln('Введите значения X Y Z: ');Readln(a,b,c); if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; if b>c then begin b:=b+c; c:=b-c; b:=b-c; end; if a>b then begin a:=a+b; b:=a-b; a:=a-b; end; writeln('X=',a,' Y=',b,' Z=',c);end.