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

Const
    n = 10;

var
    i, d, k: integer;

begin
    for i := 1 to n do
    begin
        readln(d);
        if d lt; 0 then k := k + 1;
    end;
    
    if k lt;= 5 then  
        writeln(правда)
    else
        writeln(не правда);
end.