Паскаль
Найдите произведение первых 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.