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

Program Z_n; var a,b,c,d,d1: integer; BeginReadln (a,b,c); If a>=0 then d: =d+1else d1: =d1+1; If b>=0 then d: =d+1 else d1: =d1+1; If c>=0 then d: =d+1 else d1: =d1+1; Writeln ('Положительный чисел: ',d); Writeln ('Отрицательных чисел: ', d1); end.