1. Найти произведение натуральных целых чисел, не превышающих 30 и кратных 5. Написать...

Определим какие числа нам нужно искать:

Не больше 30 и кратны пяти (Это для строчки If) то есть 5,10,15,20 и 25

var i,mt : integer;

begin

mt:=1

for i := 1 to 30 do

if i mod 5 =0 then mt:= mt * i;

writeln(mt);

end.