Задача #12
программа "АВС Паскаль"

program zadan1;
uses crt;
var
x,y,z,i,j: integer;
begin
writeln;
for z:=1 to 4 do begin

for x:=1 to 4 do begin
writeln;
for y:=1 to 8 do
write('**** '); end;

for i:=1 to 4 do begin
writeln;
for j:=1 to 8 do
write(' ****');
end; end;
end.