program FirstNegativeElement;

var
C: array[1..20] of Integer;
i: Integer;
found: Boolean;

begin
// Заполнение массива C
for i := 1 to 20 do
begin
write('Введите элемент массива C[', i, ']: ');
readln(C[i]);
end;

// Поиск первого отрицательного элемента
found := False;
for i := 1 to 20 do
begin
if C[i] < 0 then
begin
writeln('Первый отрицательный элемент: ', C[i]);
writeln('Порядковый номер: ', i);
found := True;
break;
end;
end;

if not found then
writeln('Отрицательный элемент не найден в массиве.');

end.