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

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.