Question

Дано три числа, записанный в отдельных строках. Упорядочите их в порядке неубывания. Программа должна считывать три числа a, b, c, затем программа должна менять их значения так, чтобы стали выполнены условия a <= b <= c, затем программа выводит тройку a, b, c. ((( Pascal))))

Answer 1

program abra;
var a,b,c,z:integer;
begin
readln(a,b,c);
while not((a<=b) and (b<=c)) do
beginz:=0;if a>b then
begin
z:=b;
b:=a;
a:=z;
end;
if b>c then
begin
z:=c;
c:=b;
b:=z;
end;
end;
writeln('a: ',a,',b: ',b,',c: ',c);
end.