Question

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

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.