Question

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

Answer 1

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