{* Задача19 *}

REM basic

' Дан массив фамилий студентов A$(10). Расположить фамилии
' согласно русского алфавита. Анализируется только первая заглавная буква.


CLS
N = 10:   Dim A$(N)
DATA "Яковлев А.","Петров Д.,","Сланов Р.,","Халидов Р.,","Ваниева Р.,"
DATA "Антонов И.,","Шейхов М.,","Гринберг Л.,","Макиев Г.,","Цапин В.,"
For i = 1 To N:
        READ A$(i)
Next i

For i = 1 To N
        For j = i To N
          If ASC(A$(i)) > ASC(A$(j)) Then SWAP A$(i), A$(j)
        Next j
Next i

For i = 1 To N
  PRINT A$(i);
Next i
End