Question

Pascal va rog , proceduri

Answer 1

program patruNumere;

type Natural = 0..MaxInt;

var a,b,c,d, t, q, s: Natural;

procedure ordonare(var a,b,c,d:Natural);

var creste:boolean; t: Natural;

begin

    creste:=false;

   while (not creste) do

     begin

        creste:=true;

        if a>b then begin creste:=false; t:=a; a:=b; b:=t; end;

        if b>c then begin creste:=false; t:=b; b:=c; c:=t; end;

        if c>d then begin creste:=false; t:=c; c:=d; d:=t; end;

     end;

end;

begin

 writeln(' introdu 4 numere naturale: ');

 read(a,b,c,d);

 ordonare(a,b,c,d);

 writeln(a,' ',b,' ',c,' ',d);

end.