unit progkonyvtar;
interface
  const n=10;
  type tomb=array[1..n]of integer;

  procedure kiir(t:tomb; hossz:byte);
  procedure feltolt(var t:tomb; hossz:byte);

implementation
procedure kiir(t:tomb; hossz:byte);
var i:integer;
begin
  for i:=1 to hossz do
    write(t[i]:3);
  writeln;
end;

procedure feltolt(var t:tomb; hossz:byte);
var i:integer;
begin
  randomize;
  for i:=1 to hossz do
    t[i]:=random(89)+10;
end;

begin

end.