Составьте алгоритм для вычисления произведения чисел 5,10,. у меня есть начало, вот оно закончите : r; =5, n: =55; i: =i+5.

Var i,s:integer;

begin

i:=5; s:=1;

 while i<=55 do begin

s:=s*i;

i:=i+5; 

end. 

writeln(s);

end.

Можно использовать конструкцию

H=1;

for i= 5 to 55 step 5 do

H=H*i;

Извините, могут быть неточности в синтаксисом, Паскаль использовал лет 15 назад, забыл...