rec.pas

program rec;

uses crt, rec_fun, rec_inout;

begin
  n := 4;

  recin();

  calcsrball();
  sort(st);

  recout();

end.