Program Task_9_17;
Var i:Char;
j:Integer;
Begin
For i := 'V' DownTo 'A' Do
For j := 1 To Ord('Z')-Ord(i)+1 Do Write(i);
End.