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

Var   A:real;   o,n:integer;Begino:=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.