Программирование (Е. В. Андреева): Задачи

Дана следующая программа:

type direction = (north, east, south,west);
curs = (forwrd,left,right,back);
var k1,k2:direction;
    p: curs;
    n: integer;
begin
  {считываем номер направления корабля
   0-север, 1-восток, 2-юг, 3-запад}
  readln(n);
  k1 := direction(n);
  {считываем номер изменения курса
   0-прямо, 1-налево, 2-направо, 3-назад}
  readln(n);
  p := curs(n);
  ...
  writeln(ord(k2));
end.

Корабль шел по курсу k1 (тип direction), ему был дан приказ p (тип curs). Определить значение курса (тип direction), которое получит корабль в результате выполнения приказа.

Замените многоточие на операторы, решающие поставленную задачу.