Помогите с задачами 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.