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

var a,b,c:integer;beginreadln(a,b,c);if (a<b)and (a<c) thenbeginwriteln(a);if b<c thenbeginwriteln(b);writeln(c);endelsebeginwriteln(c);writeln(b);endend;if (b<a)and (b<c) thenbeginwriteln(b);if a<c thenbeginwriteln(a);writeln(c);endelsebeginwriteln(c);writeln(a);endend;if (c<a)and (c<b) thenbeginwriteln(c);if a<b thenbeginwriteln(a);writeln(b);endelsebeginwriteln(b);writeln(a);endendend.