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

Question

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

Answer 1

Var a,b,c:integer;
begin
readln(a,b,c);
if (abegin
writeln(a);
if bbegin
writeln(b);
writeln(c);
end
else
begin
writeln(c);
writeln(b);
end
end;
if (bbegin
writeln(b);
if abegin
writeln(a);
writeln(c);
end
else
begin
writeln(c);
writeln(a);
end
end;
if (cbegin
writeln(c);
if abegin
writeln(a);
writeln(b);
end
else
begin
writeln(b);
writeln(a);
end
end
end.