program ordine;

const m = 99;
var a,b,c : integer;

begin
randomize;
 a := random(m);
 b := random(m);
 c := random(m);
 writeln('  a = ',a);
 writeln('  b = ',b);
 writeln('  c = ',c);

 if (a<=b)and(a<=c) then
  begin
    writeln(a);
    if (b<=c) then begin writeln(b);writeln(c); end
              else begin writeln(c);writeln(b); end;
  end
 else
 if (b<=c) then
  begin
    writeln(b);
    writeln(c);
    writeln(a);
  end
 else
  begin
    writeln(c);
    if (a<=b) then begin writeln(a);writeln(b); end
              else begin writeln(b);writeln(a); end;
  end;
readln;
end.

program divi;
type Natural = 1..MaxInt;
var
  n : natural;
begin
randomize;
 n := random(300);
 case (n mod 3) of
  0 : writeln('Numarul ',n,' este divizilbil la 3' );
 else writeln('Numarul ',n,' NU este divizilbil la 3' );
 end;
readln;
end.