Ввести n чисел .Верно ли что количество введённых отрицательных чисел не превышает 5. В Паскале

Решение задачи:Код написан в программе PascalABC.NET.Var a: array[1..100] of real; i,n,k: integer; begin write(\'Введите размерность n = \');readln(n);write(\'Массив: \');k:=0;for i:=1 to n do begin write(\'Введите a[\', i, \'] = \'); readln(a[i]); if a[i]<0 then k:=k+1; end; writeln; writeln(\'Количество отрицательных элементов = \',k); if k<=5 then write(\'Ответ: да, верно.\') else write(\'Ответ: нет, неверно.\');end.