Найти сумму всех целых чисел, меньших 25, которые кратны 2 и 5 (Pascal)

program zz1;

var n, i:integer; / / вводим переменные целого типа

begin

for i:=1 to 25 do / / организуем цикл, в котором переберем все числа от единицы до двадцати пяти

if (i mod 2 = 0) and (i mod 5 = 0) then n:=n + i; / / проверяем, если число делится на два без остатка и одновременно делится на пять без остатка, то добавляем его в сумму

write (' сумма всех целых чисел, меньших 25, которые кратны 2 и 5 = ', n); / / выводим ответ

end.