Составьте программу в паскале ,очень надо и быстро пожалуйста !!
Подсчитать произведение первых семнадцати целых положительных чисел

поясните задачу

числа вводятся а потом уже высчитывается произведение положительных или наоборот

программу которую я написал работает по принципу вводишь и сразу сравнивают если оно полож то его в произведение

Спасибо ,надеюсь правильно .

Var I,Sum,X,G:Integer;Begin Sum:=1;While G<>17 Do BeginWriteLn('Vvedite chislo ');ReadLn(X);If X>=0 Then BeginSum:=Sum*X;G:=G+1;End;End;WriteLn('произведение 17-ти положительных чисел равно ',Sum);End.