Пожааалуйста хээлп не могу решить никак вторую задачу(если что нужно ** Паскале)

Question

Пожааалуйста хээлп не могу решить никак вторую задачу(если что нужно на Паскале)

---

Answer 1

Program pr1;
var  a, i: integer; p: real;
begin  p:=1;  for i := 5 to 10 do  begin    readln(a);    if a mod 5 = 0 then      p := p * a;  end;  writeln(p);end.