Даны 3 числа, написать программу подсчитывающую количество отрицательных чисел и сумму неотрицательных чисел

Program p2;

Var a, b, c:integer;

kolichestvo:byte;

summa:integer;

Begin

kolichestvo:=0;

summa:=0;

Readln (a) ;

If a<0 then

kolichestvo:=kolichestvo+1 else

summa:=summa+a;

Readln (b) ;

If b<0 then

kolichestvo:=kolichestvo+1 else

summa:=summa+b;

Readln (c) ;

If c<0 then

kolichestvo:=kolichestvo+1 else

summa:=summa+c;

Writeln ('Количество отрицательных = ', kolichestvo) ;

Writeln ('Сумма положительных = ', summa) ;

End.