Program tt;
Var ch, pred_ch : Char;
count : Byte;
Function Simple(x : Byte) : Boolean;
Var d : Byte;
Begin While (x Mod d<>0) And (d<=Sqrt(x)) Do d := d+1;
Simple := (d>Sqrt(x)) End;
Begin Write ('Введите символ ');
ReadLn(ch) ;
If Simple(Ord(ch)-Ord('A')+1) Then WriteLn('Последовательность пустая') Else Begin pred_ch := ch;
count := 1;
Write('Введите символ ');
ReadLn(ch);
While Not(Simple(Ord(ch)-Ord('A' )+1) ) Do Begin If Ord(pred_ch)>Ord(ch) Then count := count+1;
pred_ch := ch;
Write('Введите символ ');
ReadLn(ch) End;
WriteLn('Последовательность содержит', count, ' упорядоченных по алфавиту подпоследовательностей');
End;
End.