дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов

var  i,n:integer;  a:array[1..20]of integer;beginfor i:=1 to 20 do  begin  readln(a[i]);  if a[i]<0 then n:=n+1  end;writeln('Ответ: ',n)end.