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

ты полностью задание пиши, откуда взялась эта последовательность? что использовать если не массивы?

сами заносим

Var
    max, prev_max, n: integer;

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