Решите, пожалуйста, задачу на языке Паскаль
Дана непустая последовательность целых чисел, за которой следует ноль (признак конца последовательности). Найти первое отрицательное число этой последовательности.
Заранее благодарю за ответы

Программа работает, все отлично! А можно будет к Вам обращаться за решениями по решениям задач на языке Паскаль?

Ну зачем именно ко мне? Тут много кто решать задания может... кто увидит, сможет, тот и решит.

var  k,n:integer;begin  n:=0;  Writeln('Введите последовательность целых чисел, завершающуюся нулем');  repeat    Read(k);    if (n=0) and (k<0) then n:=k  until k=0;  if n<0 then Writeln('Первое отрицательное число равно ',n)  else Writeln('Последовательность не содержит отрицательных чисел')end.    Тестовое решениеВведите последовательность целых чисел, завершающуюся нулем5 11 17 3 -8 14 -6 3 0Первое отрицательное число равно -8