type direction=(north, east, south, west);
const ar:array[north..west] of string [6]=('север','восток','юг','запад');
var d,new_d,k:integer; 
begin
Randomize;
d:=random(4);
writeln('Корабль движется в направлении: ',ar[direction(d)]);
write('Введите команду: 1-вперед,2-вправо,3-назад,4-влево');
readln(k);
case k of
 1:case d of
     0..3: new_d:=d;
   end;
 2:case d of
    0..2: new_d:=d+1;
    3   : new_d:=0;
   end;  
 3:case d of
    0..1:new_d:=d+2;
    2..3:new_d:=d-2;
    end;
 4:case d of
    0   :new_d:=3;
    1..3:new_d:=d-1;
    end;
end;
writeln('Новое направление: ',ar[direction(new_d)]);
end.