Отыскать творение положительных, сумму и количество отрицательных nbsp;из 10 введенных целых

USES Crt;
VAR
nbsp;nbsp;X: INTEGER; nbsp;S, K, P: INTEGER; nbsp;nbsp;nbsp;I: BYTE;
Begin
nbsp;nbsp;nbsp;P:=1; S:=0; K:=0;
nbsp;nbsp;nbsp;FOR I:=1 TO 10 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Введите nbsp;,I, -е значение); nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ReadLn(x);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF Xgt;0 Then P:=P*X; nbsp;nbsp;nbsp; творенье положительных
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF Xlt;0 Then Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;S:=S+X; nbsp; сумма отрицательных
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;K:=K+1; количество отрицательных
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Произведение положительных значений = ,p);
nbsp;nbsp;nbsp;WriteLn( Сумма отрицательных значений = ,s);
nbsp;nbsp;nbsp;WriteLn( Количество отрицательных значений = ,k);
END.