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

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