var i:integer;
s:string;
f:text
begin
  assign(f,'graftip.inc'); rewrite(f);
  for i:=1 to 100 do begin
    s:='t'+i; {hanyadik oszlop}
    writeln('   '+s+'=array[1..100,1..100] of byte;'); {oszlop kiirasa}
  close(f);
end.