логический тип

uses crt;
var x1,y1,x2,y2:byte;
    f:boolean;
begin
clrscr;
repeat
writeln('Введите координаты 1 поля от 1 до 8:');
readln(x1,y1);
until(x1 in [1..8])and(y1 in [1..8]);
repeat
writeln('Введите координаты 2 поля от 1 до 8, отличные от 1-го:');
readln(x2,y2);
until(x2 in [1..8])and(y2 in [1..8])and((x1<>x2)or(y1<>y2));
writeln('Поля одного цвета?');
f:=(x1+y1)mod 2=(x2+y2) mod 2;
write(f);
readln
end.

uses crt;
var x,y:byte;
    f:boolean;
begin
clrscr;
repeat
writeln('Введите координаты поля от 1 до 8:');
readln(x,y);
until(x in [1..8])and(y in [1..8]);
writeln('Это поле черного цвета?');
f:=(x+y)mod 2=0;
write(f);
readln
end.

program Zada4a_35;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
  x1, y1, x2, y2 : integer;
  b : boolean;
function f(x, y : integer): integer;
var c : integer;
begin
  if (x mod 2=0) and (y mod 2=0) then c := 1;
  if (x mod 2=0) and (y mod 2<>0) then c := 0;
  if (x mod 2<>0) and (y mod 2=0) then c := 0;
  if (x mod 2<>0) and (y mod 2<>0) then c := 1;
  f := c;
end;
begin
  repeat
  writeln('Vvedite koordinaty poley : x1, y1, x2, y2' );
  readln(x1, y1, x2, y2);
  until (x1<=8) and (y1<=8) and (x2<=8) and (y2<=8) and ((x1<>x2) xor (y1<>y2));
  writeln('Polya imeyt odinakoviy zvet');
  if (f(x1, y1)=f(x2, y2)) then b := true
  else b := false;
  writeln(b);
  readln;
end.