program op;
uses crt;
var t:array [1..10,1..10] of char;
    i,n:integer;
begin;
clrscr;
writeln;
i:=1;
for n:=1 to 10 do t[n,i]:='x';
for i:=2 to 9 do
              begin;
              t[1,i]:='x';
              t[10,i]:='x';
              end;
for i:=2 to 9 do
              begin;
              for n:=2 to 9 do t[n,i]:=' ';
              end;
n:=10;
for n:=1 to 10 do t[n,i]:='x';
i:=1;
for i:=1 to 10 do
               begin;
               for n:=1 to 10 do write(t[n,i]);
               writeln;
               end;
readln;
end.



program kreski;
uses crt;
var t:array [1..10,1..10] of string;
    i,n,c,d:integer;
begin;
clrscr;
for i:=1 to 10 do
              begin;
              if (i MOD 2 = 0) then
              begin;
              for n:=1 to 5 do t[n,i]:='x_';
              end
              else
              begin;
              for n:=1 to 5 do t[n,i]:='_x';
               end;
end;
for c:=1 to 10 do
              begin;
              for d:=1 to 5 do write(t[n,i]);
              writeln;
              end;
readln;
end.