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

var a, b, c: longint;

beginwriteln (\'Введите переменную a: \'); readln (a); writeln (\'Введите переменную b: \'); readln (b); writeln (\'Введите переменную c: \'); readln (c); if (a > b) and (a > c) and (b > c) then writeln(c, b, a) else if (b > a) and (b > c) and (c > a) then writeln(a, c, b) else if (c > a) and (c > b) and (a > b) then writeln(b, a, c) else if (b > a) and (b > c) and (a > c) then writeln(c, a, b) else if (c > a) and (c > b) and (b > a) then writeln(a, b, c) else if (a > b) and (a > c) and (c > b) then writeln(b, c, a)end.