Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 ра

Procedure p(k:integer); var i:integer; begin for i:=1 to 20-4*k do write(k); writeln if k<4 then   begin   p(k+1);   for i:=1 to 20-4*k do write(k);   writeln;  end; end; begin p(1); end. Результат: 1111111111111111 222222222222 33333333 4444 33333333 222222222222 1111111111111111