Ввести на экран дисплея 3 числа введённых с клавиатуры возрастающем порядке

Var a,b,c:integer;
begin
readln(a,b,c);
if (a<b)and (a<c) then
begin
writeln(a);
if b<c then
begin
writeln(b);
writeln(c);
end
else
begin
writeln(c);
writeln(b);
end
end;
if (b<a)and (b<c) then
begin
writeln(b);
if a<c then
begin
writeln(a);
writeln(c);
end
else
begin
writeln(c);
writeln(a);
end
end;
if (c<a)and (c<b) then
begin
writeln(c);
if a<b then
begin
writeln(a);
writeln(b);
end
else
begin
writeln(b);
writeln(a);
end
end
end.