program egysegek;
uses progkonyvtar;

var a:tomb;
begin
  feltolt(a,n);
  kiir(a,n);
  readln;
end.