Составьте программу, которая вычисляет произведение чисел от 5 до 10 и выводит на экран ответ исключительно через while

var
  a: byte;
  mult: integer;
begin
  a := 5;
  mult := 1;
  while a < 11 do
  begin
    mult := mult * a;
    a := a + 1;
  end;
writeln('Произведение = ', mult);
readln;
end.