Составить программу по блок схеме

Question

Составить программу по блок схеме

---

Answer 1

Var a,b,c: integer;

begin
  writeln('Введите a,b,c');
  readln(a,b,c);
  if a>b then
    if a>c then
      if b>c then writeln(a,b,c)else writeln(a,c,b)
    else
      writeln(c,a,b)
  else
    if b>c then
      if a>c then writeln(b,a,c)else writeln(b,c,a)
      else
      writeln(c,b,a);
end.