Запишите мантиссу числа и порядок​

nameA, heightA = map(str, input("Введите имя и рост(только число) первого(ой) ученика(цы) через пробел: ").split())

nameB, heightB = map(str, input("Введите имя и рост(только число) второго(ой) ученика(цы) через пробел: ").split())

if heightA > heightB:

   print("Ученик(ца) {0} выше на {1} ед.".format(nameA, int(heightA)-int(heightB)))

elif heightA < heightB:

   print("Ученик(ца) {0} выше на {1} ед.".format(nameB, int(heightB) - int(heightA)))

else:

   print("Рост ученика {0} и {1} равны".format(nameA, nameB))

Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10

// PascalABC.NET 3.0,сборка 1076
begin
  var n:=ReadInteger('Длина последовательности: ');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходная последовательность');
  a.Println;
  Writeln('Сумма элементов: ',a.Sum);
  Write('Кол-во четных, кратных пяти: ');
  Writeln(a.Where(x-> x mod 10 = 0).Count)
end.

Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1