Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.
Можно привести в пример сборку шкафа,если я правильно поняла ,что ты подразумеваешь под схемой. Там есть инструкция,по которой можно собрать шкаф. Если описание нужно такое,то можно сделать так,как возможный вариант в жизни почти любого
*Недавно мы купили шкаф в Икее. В наборе шло много креплений и собственно части шкафа. Чтобы не переделывать потом несколько раз,мы сразу решили собирать с инструкцией. Иногда были трудности,но через некоторое время шкаф был готов.*
Ученик, программист, врач, собака
Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.
Тут нечего искать. Из нулей при дизъюнкции ничего не может получиться, кроме нуля. Это как если бы в обычной алгебре складывать нули.