program arrayproj3;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
 
{$R *.res}
procedure name;
var
  myname : array[1..10] of char;
  i : integer;
begin
  myname[1] := 'N';
  myname[2] := 'o';
  myname[3] := 'r';
  myname[4] := 'm';
  myname[5] := 'a';
  myname[6] := 'n';
  for i := 1 to 6 do
  begin
    write(myname[i]);
  end;
  writeln;
  write('Press <Enter>');
  readln;
end;
procedure chess;
var
  board : array[1..8, 1..8] of char;
  i, j : integer;
begin
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      board[i, j] := '_';
    end;
  end;
  board[1,8] := 'k'; board[1,6] := 'r'; board[2,8] := 'p';
  board[2,7] := 'p'; board[2,6] := 'b';
  board[4,5] := 'N'; board[4,6] := 'Q';
  board[7,8] := 'P'; board[7,7] := 'P'; board[7,6] := 'P';
  board[8,6] := 'K';
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      write(board[i, j], '   ');
    end;
    writeln; writeln;
  end;
  write('Press <Enter>');
  readln;
end;
begin
  //name;
  chess;
end.
 
 
 
 
 
 
 
 
 
 

cHJvZ3JhbSBhcnJheXByb2ozOwoKeyRtb2RlIG9iamZwY317JEgrfQoKdXNlcwogIHskSUZERUYgVU5JWH17JElGREVGIFVzZUNUaHJlYWRzfQogIGN0aHJlYWRzLAogIHskRU5ESUZ9eyRFTkRJRn0KICBDbGFzc2VzCiAgeyB5b3UgY2FuIGFkZCB1bml0cyBhZnRlciB0aGlzIH07Cgp7JFIgKi5yZXN9CnByb2NlZHVyZSBuYW1lOwp2YXIKICBteW5hbWUgOiBhcnJheVsxLi4xMF0gb2YgY2hhcjsKICBpIDogaW50ZWdlcjsKYmVnaW4KICBteW5hbWVbMV0gOj0gJ04nOwogIG15bmFtZVsyXSA6PSAnbyc7CiAgbXluYW1lWzNdIDo9ICdyJzsKICBteW5hbWVbNF0gOj0gJ20nOwogIG15bmFtZVs1XSA6PSAnYSc7CiAgbXluYW1lWzZdIDo9ICduJzsKICBmb3IgaSA6PSAxIHRvIDYgZG8KICBiZWdpbgogICAgd3JpdGUobXluYW1lW2ldKTsKICBlbmQ7CiAgd3JpdGVsbjsKICB3cml0ZSgnUHJlc3MgPEVudGVyPicpOwogIHJlYWRsbjsKZW5kOwpwcm9jZWR1cmUgY2hlc3M7CnZhcgogIGJvYXJkIDogYXJyYXlbMS4uOCwgMS4uOF0gb2YgY2hhcjsKICBpLCBqIDogaW50ZWdlcjsKYmVnaW4KICBmb3IgaSA6PSAxIHRvIDggZG8KICBiZWdpbgogICAgZm9yIGogOj0gMSB0byA4IGRvCiAgICBiZWdpbgogICAgICBib2FyZFtpLCBqXSA6PSAnXyc7CiAgICBlbmQ7CiAgZW5kOwogIGJvYXJkWzEsOF0gOj0gJ2snOyBib2FyZFsxLDZdIDo9ICdyJzsgYm9hcmRbMiw4XSA6PSAncCc7CiAgYm9hcmRbMiw3XSA6PSAncCc7IGJvYXJkWzIsNl0gOj0gJ2InOwogIGJvYXJkWzQsNV0gOj0gJ04nOyBib2FyZFs0LDZdIDo9ICdRJzsKICBib2FyZFs3LDhdIDo9ICdQJzsgYm9hcmRbNyw3XSA6PSAnUCc7IGJvYXJkWzcsNl0gOj0gJ1AnOwogIGJvYXJkWzgsNl0gOj0gJ0snOwogIGZvciBpIDo9IDEgdG8gOCBkbwogIGJlZ2luCiAgICBmb3IgaiA6PSAxIHRvIDggZG8KICAgIGJlZ2luCiAgICAgIHdyaXRlKGJvYXJkW2ksIGpdLCAnICAgJyk7CiAgICBlbmQ7CiAgICB3cml0ZWxuOyB3cml0ZWxuOwogIGVuZDsKICB3cml0ZSgnUHJlc3MgPEVudGVyPicpOwogIHJlYWRsbjsKZW5kOwpiZWdpbgogIC8vbmFtZTsKICBjaGVzczsKZW5kLgoKCgoKCgoKCgo=