Program Case10;
Var
N:Integer;
C:Char;
Begin
WriteLn('Введите направление («С» — север, «З» — запад, «Ю» — юг, «В» — восток):');
ReadLn(C);
WriteLn('Введите команду (0 — продолжать движение, 1 — поворот налево, -1 — поворот направо):');
ReadLn(N);
Case C Of
'С':Write('направление - север, ');
'З':Write('направление - запад, ');
'Ю':Write('направление - юг, ');
'В':Write('направление - восток, ');
End;
 
Case N Of
0:WriteLn('продолжает движение');
1:WriteLn('повернул налево');
-1:WriteLn('повернул направо');
End; 
End.