HomeworkP63

program ex95;
begin
　　writeln('1':6);
　　writeln('121':7);
　　writeln('12321':8);
　　writeln('1234321':9);
　　writeln('123454321':10);
　　writeln('12345654321':11);
end.

-- or --

program ex95;
const Lines = 6;
var i, j, k: integer;
begin
  for i := 1 to Lines do
  begin
      write(1 : Lines-i+1);
      for j := 2 to i do
        write(j);
      for j := i-1 downto 1 do
        write(j);
      writeln;
  end;
  readln;
end.