Question

Найти произведение чисел на промежутке от 3 до 7​(паскаль) ​

Answer 1

program z;

var i,p:integer;

begin

p:=1;

 for i:=3 to 7 do

   p:=i*p;

writeln(p);

end.