Напишите программу, которая вычисляет произведение всех чисел кратных 5 в диапазоне от 1 до n (через цикл while) ​

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.

Пример работо

Однажды ослик не знал чем заняться. все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. и стало ослику скучно. но вот он увидел книгу с ноутбуком, и думает. думает, что бы выбрать. если выберет книгу, то быстро ее прочитает и это ему не , так тем более она скучная. вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. вот ослик и выбрал ноутбук. и стал играть в нем в игры.  так прошло несколько лет. ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. а ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. так что не играйте в игры, а учитесь, развивайтесь и читайте книги! не будьте осликами.