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

Var   A:integer;BeginRandomize;A:=random(101);WriteLn('Исходное число: ',A);if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)else WriteLn('Число нечётное, ',A*A);End.Var   A:integer;BeginWrite('Введите целое число: ');ReadLn(A);if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')else WriteLn(Sqrt(A),', осень')End.Var   A:integer;BeginRandomize;A:=random(900)+100;WriteLn('Исходное число: ',A);if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)else WriteLn('Оно не кратно пяти, ',A mod 100);End.