паскаль
Вводится
последовательность из N целых чисел. Найти наибольшее из всех
отрицательных чисел (без массива).

var  n, i, k, max: integer;begin  readln(n);  for i := 1 to n do  begin    readln(k);    if ((k < 0) and ((max = 0) or (k > max))) then      max := k;  end;  writeln(max);end.