{ Автор: Винарксий Евгений <>, 112 гр.}
program t10_12_b(input,output);
label 7;
var rus: packed array [1..33] of char;
    j,num:integer; c:char;
begin
  rus:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  read(c);
  num:=0;
  repeat
    for j:=1 to 33 do
     if (c=rus[j]) and (j<num) then
      begin
       writeln('Буквы не упорядочены');
       goto 7;
      end
     else num:=j;
    read(c);
  until c='.';
  writeln('Буквы упорядочены');
7 end.