Решите задачу по информатике в программе паскаль, пожалуйста

var A: array[1… 5] of real; i, n_neg, n_pos: integer; begin n_neg: =0; n_pos: =0; for i: =1 to 5 do readln (A[i]); for i: =1 to 5 do if (A[i] < 0) then inc (n_neg) else if (A[i] > 0) then inc (n_pos); writeln ('Positives: ', n_pos, ', negatives: ', n_neg) end.