0.0814907253 Тб ≈ 85,449.2188 Мб ≈ 700,000,000 Бит
1 Тб = 1024 Гб
1 Гб = 1024 Мб
1 Мб = 1024 Кб
1 Кб = 1024 Б
1 Б = 8 Бит
Чтобы узнать размер в тех или иных величинах, нужно умножать/делить на 8 или 1024
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
<span>then write('Пройдёт')
</span><span>else write('Не пройдёт');</span>end.
Это программа упорядочивает элементы вам надо создать еще один массив в который будете сохранять номера элементов , хотя в принципе можете попробывать по другому