Cnt1_3 Ввести n чисел, подсчитать, сколько среди них положительных, отрицательных и чисел больших 10.

Var n,x,i,p,m,s:integer;
begin
writeln(Введите n: );
readln(n);
for i:=1 to n do
  begin
  readln(x);
  if x  if x>0 then p:=p+1;
  if x>10 then s:=s+1;
  end;
writeln(Положительных: ,p);
writeln(Отрицательных: ,m);
writeln(Больше 10: ,s);
end.