const destinations = 'СЗЮВСЗЮВСЗЮВ'; {Предварительно сформированная строка ориентаций}var C : char; N1, N2, Position : integer;begin write('Исходная ориентация локатора: '); readln(C); write('Первая команда поворота: '); readln(N1); write('Вторая команда поворота: '); readln(N2); Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления} Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])} Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])} writeln('Конечная ориентация: ', destinations[Position]);end.