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

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.