1) C клавиатуры вводятся 10 чисел. Найти сумму тех из них, которые больше 10.
2) Найти произведение двузначных нечетных чисел.
3) С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных и количество положительных среди введенных чисел. Значение N вводится с клавиатуры.

1)var x,s:real; i:integer;begins:=0;For i:=1 to 10 do beginreadln(x);if x > 10 thens:=s+x;end;write(s);readlnend.2)var p:longint; x,i:integer;beginp:=1;for i:= 1 to 10 do beginreadln(x);if (x div 100 = 0) and (x mod 2 <>0) thenp:=p*x;end;write(p);readlnend.3)var i;n;kp;ko;integer; x:real;beginreadln(n);kp:=0;ko:=0;for i:= 1 to n do beginreadln(x);if x > 0 thenkp:=kp+1elseko:=ko+1;end;write('положительных',kp,'отрицательных',ko);readlnend.