Построить алгоритм нахождения произведения чисел от 5 до 15.

Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой