Var
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.
1. Слева устройство вывода, снизу процессор.
2. Клавиатура, принтер.
3. Устройства ввода: 2,3 Вывода: 1,4
4. 1)Веб-камера 2)Проектор