3. Все 5-буквенные слова, составленные из букв О, П, Р, Т, Записаны в алфавитном порядке и пронумерованы. Вот начало списка: 1. 00000 2. 000ОП 3. 000OP 4. 0000T 5. ОООПО Какие слова находятся в этом списке на 25-ми 514-м местах

var i:word; переменная через которую будут проходить все трехзначные цифры
s:longint; переменная для хранения суммы
begin
s:=0;-обнуляем переменную где будем сохранять сумму
write('Числа: ');
for i:=100 to 999 do  начинаем перебор всех трехзначных цифр
if i mod 2 = 0 then проверка на четность, мод - это деление по остатку,т.е в ответ записывается остаток от деления
if i mod 7 = 0 then begin write(i,' '); s:=s+i; end; выводим четное число кратное 7 и в тоже время суммируем его с последующими четными кратных 7ми, в переменной s
writeln; пропускаем строку
writeln('Сумма всех всех четных трехзначных чисел, которые делятся на 7 = ',s); выводим на экран результат
end.