Объяснение:

var a,b: string;

n,i:integer;

begin

writeln('Введите значение n');

readln(n);

a:='____*__*__*__*';

b:='___*__*__*__*';

for i:=1 to n do

begin

writeln(a);

writeln(b);

end;

end.

Ответ:

var j,i:integer;

begin

for i:=1 to 8 do

begin

if i mod 2 <> 0 then for j:=1 to 4 do write ('*   ')

else for j:=1 to 4 do write ('  * ');

writeln

end

end.