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