//PascalABC.Net 3.2
begin //true - бьет; false - не бьет
var s1:=readstring ('Введите позицию пешки: ');
var s2:=readstring ('Введите позицию слона: ');
write (abs(ord(s1[1])-ord(s2[1]))=abs(ord(s1[2])-ord(s2[2])));
end.
1)Henry_фord быть не может из-за нижнего подчеркивания и кириллицы
2) var_y:real не может быть из-за нижнего подчеркивания и зарезервированных символов и операторов (двоеточие и тип real)
3)_____ из-за нижнего подчеркивания
4)downto зарезервированное слово, тоже нет
5) _С++ из-за нижнего подчеркивания и плюсов.
Таблица истинности - в приложении.
Uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a >0) or (b>0) or (c>0) then writeln('True') else
writeln('False');
end.