Помогите с задачами 1)генератор случайных чисел выбирает случайное число от 0 до 100 если...

Question

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

Answer 1

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.