program Project1;

var
  a,i,j: integer;
  size: integer;
  tab: array [1..10] of integer;
  mac: array [1..10,1..10] of integer;
  m:array of array of integer;


begin
  a:=15;
  tab[1]:=a;
  tab[2]:=tab[1]+20;
  writeln(tab[1]);
  writeln(tab[2]);
  for i:=1 to 10 do
  begin
       tab[i]:=i*10;
  end;
  for i:=1 to 10 do
  begin
       writeln(tab[i]);
  end;
  size:=15;
  SetLength(m, size, size);
  for i:=0 to size-1 do
  begin
       for j:=0 to size-1 do
       begin
             m[i,j]:=1;
       end;
  end;
  for i:=0 to size-1 do
  begin
       for j:=0 to size-1 do
       begin
             write(m[i,j],' ');
       end;
       writeln;
  end;

  if a>5 then
  begin
       writeln('A jest wieksze');
  end
  else
  begin
       writeln('A jest mniejsze');
  end;
  readln;

end.