подсчитай количество отрицательных целых чисел среди a,b,c

program fofgogjoj;vara,b,c,ot,pl:integer;beginWriteln('Введите 3 числа');Readln(a,b,c);if a<0 thenot:=ot+1;if b<0 thenot:=ot+1;if c<0 thenot:=ot+1;if a>0 thenpl:=pl+1;if b>0 thenpl:=pl+1;if c>0 thenpl:=pl+1;Writeln('Кол-во отрицательных чисел:',ot);Writeln('Кол-во положительных чисел:',pl);end.Можно написать и короче, но я не знаю что вы уже прошли, а что нет