Напишите программу: найти произведение чисел, оканчивающихся на 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.