III/18

program III;//название
var//объявление переменных
i : integer;//индекс
begin
    //очень странные закономерности. Проще просто вывести как просят, чем
    //продумывать можественные условия вывода.
    WriteLN('9');
    WritelN('4');
    for i:= 1 to 2 do
        Write('8 ');
    WriteLN;
    for i:= 1 to 2 do
        Write('3 ');
    WriteLN;
    for i:= 1 to 3 do
        Write('7 ');
    WriteLN;
    for i:= 1 to 4 do
        Write('2 ');
    WriteLN;
    for i:= 1 to 5 do
        Write('6 ');
    WriteLN;
    for i:= 1 to 5 do
        Write('1 ');
    WriteLN;
end.