помогите, пожалуйста, написать код в паскале

Ответ:

Program Chisla;

Var A,B,C,D,kol,sum:integer;

begin

   kol := 0;

   sum := 0;

   writeln('Введите A,B,C,D');

   readln(A,B,C,D);

   if A>0 then

       kol := kol+1;

       sum := sum+A;

   if B>0 then

       kol := kol+1;

       sum := sum+B;

   if C>0 then

       kol := kol+1;

       sum := sum+C;

   if D>0 then

       kol := kol+1;

       sum := sum+D;

   writeln ('Количество положительных: ',kol);

   writeln ('Их сумма: ',sum);

end.

Объяснение: