напишите программу:
Найти произведение чисел, оканчивающихся на 5, в промежутке от 1 до 100.

program n_1;var s, i: int64;begin s:=5; i:=15; while (i<=100) do begin s:=s*i; i:=i+10; end; writeln(s);end.