program sort3liczb;
{ Program testuje dzialanie procedury, porzadkujacej }
{ trzy liczby rzeczywiste niemalejaco.               }
{ dyskietka: 3_61d.pas                               }
var
  A, B, C : Real;

procedure SortowanieTrzechLiczb (var A, B, C : Real);
{ Procedura porzadkuje niemalejaco trzy liczby.       }
var
  Pom : Real;
begin
  if (A>B) then
    if (B>C) then
     { nic nie trzeba zmieniac, porzadek jest dobry }
    else
      if (A>C) then
      begin { trzeba ustalic porzadek ACB }
        Pom := B; B := C; C := Pom;
      end
      else { trzeba ustalic porzadek CAB }
      begin
        Pom := A; A := C; C := B; B := Pom;
      end
  else
    if (A>C) then { ustalic porzadek BAC }
    begin
      Pom := B; B := A; B := Pom;
    end
    else
      if (B>C) then { porzadek BCA }
      begin
        Pom := A; A := B; B := C; C := Pom;
      end
      else
      begin { ustalic porzadek CBA }
        Pom := A; A := C; C := Pom;
      end;
end; {------------------------ SortowanieTrzechLiczb -}

begin
  write ('Podaj trzy liczby, A, B, C: '); readln (A, B, C);
  SortowanieTrzechLiczb (A, B, C);
  writeln ('Uporzadkowane liczby: ', A:0:2, ' ', B:0:2, ' ', C:0:2);
  readln
end.