Определить два наибольших числа в последовательности и найти их частное.
Не через массивы. Паскаль.

var    max, prev_max, n: integer;begin    max := -10000;    prev_max := -10000;    repeat        read(n);        if n > max then begin            prev_max := max;            max := n;        end;    until n = 0;        writeln(max, ' ', prev_max, ' ', prev_max / max);end.