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

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