Помогите с информатикой.

Задача 1: Сумма чисел кратных 4

program SumMultiplesOfFour;
var
n, s, i, a: Integer;
begin
s := 0; // Инициализируем сумму
Write('Введите количество натуральных чисел: ');
ReadLn(n);

for i := 1 to n do
begin
Write('Введите ', i, '-е число: ');
ReadLn(a);

if a mod 4 = 0 then // Если число кратно 4
s := s + a; // Добавляем к сумме
end;

WriteLn('Сумма чисел кратных 4: ', s);
end.


Задача 2: Произведение натуральных чисел от 5 до 25

program ProductFrom5To25;
var
i: Integer;
product: LongInt;
begin
product := 1; // Инициализируем произведение
for i := 5 to 25 do
begin
product := product * i; // Умножаем каждое число
end;

WriteLn('Произведение чисел от 5 до 25: ', product);
end.


Задача 3: Минимальное число больше 70, кратное 11

program MinNumberGreaterThan70;
var
number: Integer;
begin
number := 71; // Начинаем с 71
while number mod 11 <> 0 do // Ищем число, кратное 11
begin
number := number + 1; // Увеличиваем на 1
end;

WriteLn('Минимальное число больше 70, которое делится на 11: ', number);
end.




Первая программа запрашивает у пользователя количество чисел и проверяет каждое на кратность 4, добавляя его к сумме.

Во второй программе мы тупо умножаем числа от 5 до 25.

Последняя программа ищет наименьшее число больше 70 делящееся на 11.