Заполнить массив из 15 элементов целыми числами с клавиатуры, и найти количество отрицательных элементов. Программа Паскаль.

Program kl;

var a:array[1 ... 15] of real;

i:integer;

k:real;

begin

k:=0;

for i:=1 to 15 do

begin

readln (a[i]);

if a[i]<0 then

begin

k:=k+1;

end;

end;

writeln ('кол-во отрицательных элементов=', k);

end.