[SerginhoLD]

вот красиво про доску:

Код:

program Project1;
uses
  SysUtils, Windows;
var
  a: array [1..8,1..8] of string;
  i,j,m,n,t,s: integer;
  k: string;
    procedure ConsoleTextColor(color: word);
    begin
      SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),color);
    end;
begin
  for i:=1 to 8 do
  begin
    if i mod 2 <> 0 then k:='white' else k:='black';
    for j:=1 to 8 do
      if k='white' then
      begin
        ConsoleTextColor($ff); write('w');
        a[i,j]:='white'; k:='black'
      end else begin
        ConsoleTextColor($88); write('b');
        a[i,j]:='black'; k:='white'
      end;
    writeln('');
  end;
  ConsoleTextColor($0B); writeln('');
  writeln('pervaya kletka');
  write('  nomer stroki: '); readln(m);
  write('  nomer stolbca: '); readln(n);
  writeln('vtoraya kletka');
  write('  nomer stroki: '); readln(t);
  write('  nomer stolbca: '); readln(s);
  ConsoleTextColor($0A); writeln('');
  if a[m,n]=a[t,s] then
    writeln('kletki odnogo cveta')
  else writeln('kletki raznogo cveta');
  readln;
end.