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

Var
    i, p: integer;

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