С1)генератор случайных чисел выбирает случайное число от 0 до 100 если число четное то уменьшить его в 2 раза иначе возвести в квадрат 2)программа запрашивает число если оно четное и больше 15 и оканчивается на 6 то отобразить его квадрат {sqr (x) } и слово , , весна'' иначе {sqrt (x)} квадратный корень и , , осень '' 3) программа генерирует число от 100 до 999 если оно кратно 5 то вывести две первых цифры этого числа иначе две последних цифры

Var
   A:integer;
Begin
Randomize;
A:=random(101);
WriteLn('Исходное число: ',A);
if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)
else WriteLn('Число нечётное, ',A*A);
End.

Var
   A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')
else WriteLn(Sqrt(A),', осень')
End.

Var
   A:integer;
Begin
Randomize;
A:=random(900)+100;
WriteLn('Исходное число: ',A);
if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)
else WriteLn('Оно не кратно пяти, ',A mod 100);
End.

1. Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которой также могут встречаться следующие символы. Символ «?» (вопросительный знак) означает ровно один произвольный символ. Символ «*» (звездочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность. В каталоге находятся 5 файлов: fort.docx; ford.docx; lord.doc; orsk.dat; port.doc. Определите, по какой из масок из них будет отобрана указанная группа файлов: 
fort.docx; ford.docx; lord.doc; port.doc. 
1) *o?*.d?* 
2) ?o*?.d* 
3) *or*.doc? 
4) ?or?.doc? 

# Код на ruby 2.2.3p173
def zadanie(line, time)
    line = line.gsub(/[^MD]/, "")
    time.times { |i|
        k = 0
        while k < line.size - 1 do
            if line[k..k + 1] == "MD"
                line[k], line[k + 1] = line[k + 1], line[k]
                k+=1
            end
            k+=1
        end
        p [i,line]
    }
    return line
end
# # Примеры применения
p zadanie("MMDMMMDDDMDDDMD", 10)

Вывод
[1, "MDMDMMDMDDDMDDDM"]
[2, "DMDMDMMDMDDDMDDM"]
[3, "DDMDMDMMDMDDDMDM"]
[4, "DDDMDMDMMDMDDDMM"]
[5, "MDMDMMDMDDMM"]
[6, "MDMDMMDMDMM"]
[7, "MDMDMMDMMM"]
[8, "MDMDM"]
[9, "MDMDMDDD"]
[10, "MDMDMDD"]
"MDMDMDD"