unit tomb_io;
interface
  type tomb=array [1..20]of integer;
  procedure beolvas(var t : tomb; var hossz: byte; nev: char );
  procedure kiir(t : tomb; hossz: byte; nev: string );
  function talal(t:tomb; hossz: byte; elem:integer):boolean;
implementation

procedure beolvas(var t : tomb; var hossz: byte; nev: char );
var i: integer;
begin
  write('A(z) "', nev, '" tomb hossza: ');readln(hossz);
  writeln('Kerem a(z) "', nev, '" tomb elemeit: ');
  for i:=1 to hossz do
  begin
    write(nev, '[',i,'] = '); readln(t[i]);
  end;
end;

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

function talal(t: tomb; hossz: byte; elem:integer):boolean;
var i:integer;
begin
  i:=1;
  while (i<=hossz) and (t[i] <> elem) do
    i:=i+1;
  talal:=i<=hossz;
end;
begin

end.