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

Question

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

lear8765 · Answer

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....