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

var
a, b, c: longint;

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