Здесь впервые мы встречаемся с определением суммы (количества). Сначала переменной, где будет накапливаться сумма, нужно придать значение 0, а потом к текущему значению суммы прибавлять требуемое значение и полученный результат снова помещать в переменную, предназначенную для хранения суммы.

Program Problem1;
Var
  A,B,C,D:Integer;
  Kol_vo:Byte; {Количество положительных чисел.}
Begin
  WriteLn('Задайте 4 целых числа:');
  ReadLn(A,B,C,D);
  Kol_vo:=0; {Начальное значение количества.}
  If A>0 Then Kol_vo:= Kol_vo+1; {Увеличение на 1.}
  If B>0 Then Kol_vo:= Kol_vo+1; 
  If C>0 Then Kol_vo:= Kol_vo+1;
  If D>0 Then Kol_vo:= Kol_vo+1;
  WriteLn('Количество положительных чисел среди 
  введенных равно ', Kol_vo);
End.

Текст этой программы можно взять здесь.