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

const    n = 10;var    i, d, k: integer;begin    for i := 1 to n do     begin        readln(d);        if d < 0 then k := k + 1;    end;        if k <= 5 then          writeln('правда')     else        writeln('не правда');end.