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

Question

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

Answer 1

Var
    i, p: integer;

begin
    p := 1;
    i := 5;
    while i <= 10 do <br>    begin
        p := p * i;
        i := i + 1;
    end;
    writeln(p);
end.