Задача "Возможный ход коня"

[DoctorHaOs]

Ввод d4 , вывод

Kordinata :c2
Kordinata :b3

Вывод можешь настроить под себя, там все легко!

uses crt;
var x5,x3,x4,x8,x9: char;
    y,x,x0,x1,x2,x6,x7,y1,y2,y3,y4: integer;
    
    begin
       writeln('Protect HaOs STUDIO');
       writeln('Send comments to doctorhaos96@gmail.com');
       read(x5);
       read(y);

       case x5 of
       'a': x:=1;
       'b': x:=2;
       'c': x:=3;
       'd': x:=4;
       'e': x:=5;
       'f': x:=6;
       'g': x:=7;
       'h': x:=8;
       end;
       x1:= x + 2;
       x2:= x - 2;
       x6:= x + 1;
       x7:= x - 1;
       y1:= y + 1;
       y2:= y - 1;
       y3:= y + 2;
       y4:= y - 2;

       case x1 of
       1: x3:='a';
       2: x3:='b';
       3: x3:='c';
       4: x3:='d';
       5: x3:='e';
       6: x3:='f';
       7: x3:='g';
       8: x3:='h';
       end;

       case x2 of
       1: x4:='a';
       2: x4:='b';
       3: x4:='c';
       4: x4:='d';
       5: x4:='e';
       6: x4:='f';
       7: x4:='g';
       8: x4:='h';
       end;
       
       case x6 of
       1: x8:='a';
       2: x8:='b';
       3: x8:='c';
       4: x8:='d';
       5: x8:='e';
       6: x8:='f';
       7: x8:='g';
       8: x8:='h';
       end;
       
       case x7 of
       1: x9:='a';
       2: x9:='b';
       3: x9:='c';
       4: x9:='d';
       5: x9:='e';
       6: x9:='f';
       7: x9:='g';
       8: x9:='h';
       end;

       if (x1<1) or (y1<1) then else
       writeln('Kordinata :':5, x3,y1);
       if (x1<1) or (y2<1) then else
       writeln('Kordinata :':5, x3,y2);
       if (x2<1) or (y1<1) then else
       writeln('Kordinata :':5, x4,y1);
       if (x2<1) or (y2<1) then else
       writeln('Kordinata :':5, x4,y2);
       
       if (x6<1) or (y3<1) then else
       writeln('Kordinata :':5, x8,y3);
       if (x6<1) or (y4<1) then else
       writeln('Kordinata :':5, x8,y4);
       if (x7<1) or (y3<1) then else
       writeln('Kordinata :':5, x9,y3);
       if (x7<1) or (y4<1) then else
       writeln('Kordinata :':5, x9,y4);

       readkey;
       
     end.

Удачи!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

ТС поставила вопрос 3 января, полностью разобралась 4 января, а нынешнюю дату знаете?
Кстати код надо оформлять тегом [CODE], кнопочка с решеткой (#)