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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.