Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

Var a,b,c,d: integer; begin   writeln('введите 4 числа через пробел'); readln(a,b,c,d);   if (a> 0)and(b> 0)and(c> 0)and(d> 0) then writeln('все числа положительные')   else  if  ((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d> 0))or((a> 0)and(b> 0)(c< 0))or((a> 0)and(b> 0)and(c> 0)and(d< 0)) then writeln('3 числа положительные')   else if ((a< 0)and(b< 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c< 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d> 0))or((a< 0)and(b> 0)and(c> 0)and(d< 0))or((a> 0)and(b< 0)and(c< 0)and(d> 0))or((a> 0)and(b< 0)and(c> 0)and(d< 0))or((a> 0)and(b> 0)and(c< 0)and(d< 0)) then writeln('2 числа положительных');   else if ((a> 0)and(b< 0)and(c< 0)and(d< 0))or((a< 0)and(b> 0)and(c< 0)and(d< 0))or((a< 0)and(b< 0)and(c> 0)and(d< 0))or((a< 0)and(b< 0)and(c< 0)and(d> 0)) then writeln('1 положительное число')   else if  (a< 0)and(b< 0)and(c< 0)and(d< 0) then writeln('нет положительных чисел');   readln end.

вот в 6 программа выводит все числа кроме 1 и самого числа #1

x=int(

s=0

while x! =0:

x=int(

s+=1

print(s)

#2

x=int(

s=0

while x! =0:

x=int(

if x==3:

  s+=1

print(s)

#3

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=1

else:

  s1+=1

print('четные-',s,'\n','нечетные-',s1)

#4

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=x

else:

  s1+=x

print('четные sum-',s,'\n','sum нечетные-',s1)

#5

s=0

x=int(

while s< =x:

y=int(

s+=y

if s< =x:

  break

#6

x=int(

t=x-1

while t> 1:

if (x%t)==0:

  print(x/t)

  t-=1

else:

  t-=1

Информация (informatio — осведомление, разъяснение, изложение) — в широком смысле абстрактное понятие, имеющее множество значений, в зависимости от контекста. В узком смысле этого слова — сведения (сообщения, данные) независимо от формы их представления. В настоящее время не существует единого определения термина информация. С точки зрения различных областей знания, данное понятие описывается своим специфическим набором признаков. Информация — совокупность данных, зафиксированных на материальном носителе, сохранённых и распространённых во времени и пространстве.

В то же время никак нельзя называть произведения искусства информацией. Эстетическое, культурологическое понимание термина информация в корне отличается от понимания информации в кибернетике, физике, биологии и т. д.

Органами чувств (приемниками информации) мы принимаем информацию об окружающем мире, в том числе и информацию о произведениях искусства. Но произведения искусства в связи с этим не становятся чистой информацией. Это мы при органов чувств, видя произведения искусства, воспринимаем информацию о произведениях искусств.