Записать дату 28.08.1998 римскими цифрами

xxviii.viii.mcmxcviii.

Отдел +; использует вывод из "", из ""; пер   a: ряд 10 из цел;   сч, мин, имин: цел; указ   от сч : = 0 до размер(a)-1 вып     a[сч] : = узк(вширцел(.случ() * 49)) + 1;     вывод.чцел("%d ", a[сч], 0, 0, 0)   кон;   мин : = a[0];   имин : = 0;   от сч : = 1 до размер(a) - 1 вып     если a[сч] < мин то мин : = a[сч]; имин : = сч кон   кон;   сч : = a[размер(a) - 1];   a[размер(a) - 1] : = a[имин];   a[имин] : = сч;   вывод.цепь("^");   от сч : = 0 до размер(a)-1 вып     вывод.чцел("%d ", a[сч], 0, 0, 0)   кон кон .

Dim n as integer        dim massiv() as integer        dim summ as integer        dim i as integer        n = inputbox("введите n")        redim massiv(n)        for i = 0 to n             massiv(i) = int(rnd() * 100) + 1        next n = massiv(massiv.length - 1) for i = 0 to massiv.length - 1             if massiv(i) < n then summ += massiv(i)        next '   c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 msgbox (summ)