Вводятся 5 целых чисел вывести количество отрицательных . ...

Motes

var    a: array [1..100] of integer;    i, n, k: integer;begin    n := 5;    for i := 1 to n do     begin        read(a[i]);        if a[i] < 0 then k := k + 1;    end;        write(k);end.