Напишите программу подсчета количества введенных отрицательных из n чисел,произвольно введенных пользователем.,

Var
   A:real;
   o,n:integer;
Begin
o:=0;
Write('n = ');ReadLn(n);
For n:= 1 to n do
    Begin
    ReadLn(A);
    if A < 0 then o:=o+1;
    End;
WriteLn('Количество отрицательных, среди введённых: ',o);
End.