П О М О Г И Т Е ПОЖАЛУЙСТА! у меня есть программа в паскале(работает), задание которой звучит так: Подсчитать количество отрицательных чисел среди чисел a, b ,c. Что такое k и выражение k:=k+1 ?   Program 13;Uses crt;var a,b,c:...

П О М О Г И Т Е ПОЖАЛУЙСТА! у меня есть программа в паскале(работает), задание которой звучит так: Подсчитать количество отрицательных чисел среди чисел a, b ,c. Что такое k и выражение k:=k+1 ?   Program 13; Uses crt; var a,b,c: real; k: integer; Begin Clrscr; Write ('введите три числа ->'); Read(a,b,c); Write ('отричательных чисел '); if a<0 then k:=k+1; if b<0 then k:=k+1; if c<0 then k:=k+1; if k=0 then Write ('-нет') else Write (k,' штук'); Readln; end.