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

Program p2; Var a,b,c: integer; kolichestvo: byte; summa: integer; Beginkolichestvo: =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.