Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 раз) 222222222222 (12 раз) 33333333 (8 раз) 4444 (4 раза) 33333333 (8 раз) 222222222222 (12 раз) 1111111111111111 (16 раз)

Procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k 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