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

Question

Составьте программу сортировки по возрастанию значений трех переменных: A B 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.