Question

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

Answer 1

var
    i, p: integer;

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