Ввести массив X (X1, x2, ... x10). Подсчитать количество элементов, чьё значение больше 1, а также найти сумму отрицательных элементов. (Pascal)

Const

N = 10;

Var

X:array[1 ... N] of integer;

i, k:integer;

S:real;

Begin

k:=0;

S:=0;

WriteLn ('Введите массив A[', N,']:') ;

For i: = 1 to N do

Begin

Read (X[i]) ;

if X[i]>1 then k:=k+1

else if X[i]<0 then S:=S+X[i];

End;

WriteLn ('k = ', k) ;

WriteLn ('S = ', S) ;

End.