Здесь, как говорится, возможна масса разных вариантов. Один из самых простых такой: var i,j: integer; begin for j:=1 to 5 do begin for i:=1 to 8 do write('* '); writeln; for i:=1 to 8 do write(' *'); writeln; end; <span>end. Если не подойдет - уточняйте требования к программе.</span>