1. if B = then Writeln ′Делениенанольневозможно′'Деление на ноль невозможно'′Делениенанольневозможно′;
4. if a < b then min:= a; else min:= b;
1. if B = then Writeln ′Делениенанольневозможно′'Деление на ноль невозможно'′Делениенанольневозможно′;
4. if a < b then min:= a; else min:= b;