Ответ:

• var p, n, i: integer;
• begin
• p := 1;
• readln(n);
• while i < n do
• begin
• i += 1;
• if (i mod 5 = 0) then p *= i;
• end;
• write(p);
• end.

Пример работоспособности: