составьте программу сортировки по возрастанию значений трёх переменных:A,D,C.

var    a, d, c, t: integer;begin    readln(a, d, c);    if a < d then begin t := a;a := d;d := t; end;    if a < c then begin t := a;a := c;c := t; end;    if d < c then begin t := d;d := c;c := t; end;    writeln(a, ' ', d, ' ', c);end.