Question

Help.............составьте программу........

Answer 1

Var
  a:array[1..8] of integer;
  i:integer;
  b:boolean;
begin
  b:=true;
  for i:=1 to 8 do
    read(a[i]);
  for i:=1 to 4 do
    if a[i]<>a[4-i+1] then b:=false;
  if b then writeln('YES')
  else writeln('NO');
end.