вводится 6 чисел выводится сумма всех отрицательных если их нет так и должно писаться нет значений. необходимо написать

program sum_of_negative;var n, s: integer;beginwriteln(\'Введите 6 положительных и отрицательных чисел\');for i: integer:= 1 to 6 dobeginwrite(i, \'-е число: \');readln(n);if n < 0 then s:= s + n;end;if s <> 0 then writeln(\'Сумма отрицательных чисел: \', s )elsewriteln(\'Отрицательных чисел в последовательности нет\')end.