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

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