Составить программу на паскале, которая находит сумму цифр от 1 до 25

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,25).Sum());
end.

Var
i, sum:integer;
begin
For i:= 1 to 25 do
  sum := sum + i;
Writeln(sum);
end.

Результат:
325

Программа на Python:

for base in range(2, 15):

   """ Вводимые данные """

   x = 511

   s = ""

   flag = True

   """ Перевод числа из 10 в base """

   while x:

       s += str(x % base)

       x //= base

   # На выводе обратный порядок переведённого числа, однако нам и не важно это

   """ Проверка кол-ва несовпадающих элементов """

   for el in s:

       if s.count(el) != 1:

           flag = False

   """ Вывод и остановка цикла"""

   if flag:

       print(f"{s} (base: {base})")

       break

1)
number = list(input())

if int(number[0])%2==0 and int(number[1])%2==0 and int(number[2])%2==0:

 print('Да')

else:

 print('Нет')
2)

number = list(input())

if((int(number[0])*int(number[1])*int(number[2])) % 2 == 0):

 print('Нет')

else:

 print('Да')

Объяснение:

1) Получаем вводимое число и разбиваем строку на массив.
Проверяем каждую цифру на чётность, в случае когда все они чётные - выводим "Да", а в других случаях "Нет".
2) Получаем вводимое число и разбиваем строку на массив.
Умножаем все цифры друг на друга и проверяем произведение на чётность, если оно чётное выводим "Нет", а в других случаях "Да"