Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые команды: 0 — продолжать движение, 1 — поворот налево, -1 — поворот направо.
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.