Question

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

Answer 1

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.