Программа получает на вход целые числа, не равные 0. количество введенных чисел неизвестно, последовательность чисел заканчивается 0. введенные числа по модулю не превышают 30000. программа должна ответить на вопрос: верно ли, что максимальное из чисел превышает минимальное больше чем в 2 раза?
Begin
ReadLn(A);
Max:=A;
Min:=A;
While A<>0 do
Begin
ReadLn(A);
if A>Max then Max:=A;
if A<Min then Min:=A;
End;
WriteLn(Max/Min > 2)
End.