Написать 2 программы (на языке программирования Паскаль) для нахождения наибольшего из 3 заданных чисел. 1) использовать принцип вложенных ветвлений, 2) принцип последовательных ветвлений. Условия, построенные с логических операций НЕ использовать!
Заранее благодарю

1) достаточно большой объем

2) не очень большая цена (по сравнению в переносными внешними жесткими дисками)

3) быстрый переноса информации

4) не требуется домолнительных прграмм для сохранения информации

5) есть возможность работать прямо с носителя.

 

многое это есть и у других носителей, но например дискеты обладают маленькой памятью, для работы сс дисками надо иметь и дисковод и, что бы записать туда информацию, необходимо программу. А переносной внешний жеский диск имеет достаточную стоимость, что не покараману некоторым.

Var x1, x2, y1, y2: integer;
O: boolean;
begin       
write('X1: ');       
readln(x1);       
write('Y1: ');       
readln(y1);       
write('X2: ');       
readln(x2);       
write('Y2: ');       
readln(y2);       
if (x1 < 0) and (x2 < 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if (x1 < 0) and (x2 < 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 > 0) and (y2 > 0) then O:=true;       
if (x1 > 0) and (x2 > 0) and (y1 < 0) and (y2 < 0) then O:=true;       
if O = true then write('TRUE')       
else write('FALSE');
end.