Помогите с информатикой 8 класссоставте программу которая вычисляет произведения...

Question

Помогите с информатикой 8 класс
составте программу которая вычисляет произведения натуральных чисел от 5 до 10 используя цикл while

Answer 1

Var i,p:integer;
begin
i:=5; p:=1;
while i<=10 do begin<br>p:=p*i;
inc(i);
end;
write(p);
end.