Здравствуйте, Reresana!
Вы пишете
"Но безумно хочу ее решить"
Я привожу код решения этой задачи без комментариев. Вероятно Вам будет интересно самой разобраться. Если вдруг не сможете, пишите на странице вопросов.

Приложение:
uses crt;
var a,b,c,d,e,f,h1,h2:byte;
begin
clrscr;
repeat
writeln('Белая ладья:');
write('a=');readln(a);
write('b=');readln(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Черный слон:');
write('c=');readln(c);
write('d=');readln(d);
until (c in [1..8])and(d in [1..8]);
repeat
writeln('Поле для хода:');
write('e=');readln(e);
write('f=');readln(f);
until (e in [1..8])and(f in [1..8]);

if (((a=e)and(c<>e))or((c=e)and(abs(b-d)>abs(b-f))))
or (((b=f)and(d<>f))or((d=f)and(abs(a-c)>abs(a-e))))
then h1:=1 else h1:=0;

if abs(c-e)=abs(d-f) then h2:=1 else h2:=0;

if h1=0 then write('Белая ладья не может пойти на поле ',e,f)
else if (h1=1)and(h2=1)then
write('Белая ладья может пойти на поле ',e,f, ', но попадает под бой')
else if (h1=1)and(h2=0)then
write('Белая ладья может пойти на поле ',e,f, ', не попадая под бой');
readln
end.