Question

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

Answer 1

var    A, B, C, temp: integer; begin    write('Enter A, B and C: ');    readln(A, B, C);    if A > B then    begin       temp := A;       A := B;       B := temp;    end;    if B > C then    begin       temp := B;       B := C;       C := temp;    end;    if A > B then    begin       temp := A;       A := B;       B := temp;    end;    writeln('The sorted order is: ', A, ', ', B, ', ', C); end.