Паскаль найдите произведение первых 10 натуральных чисел при оператора while

Program qq;
var per, res:integer;
begin
  per:=1;
  while(per < 10) do
  begin
    res:=per*(per + 1);
    per := per + 1;
   end;
   write(res);
end.