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.