Question

Помогите с информатикой ​

Answer 1

program z1;

var s,i:integer;

begin

s := 1;

for i :=5 to 15 do s := s * i;

writeln(s);

end.