1. 1) (x>-3) and (x<=10) 2) x<>0, y<>0 3) (x>=-10) and (x<0) 4) a mod 3<>0 2. program koren; var c, b, a:integer; begin write ('Введите 3 числа: '); read (a); read (b); read (c); if (a<b) and (a<c) then writeln ('наименьшее число - ',a) else if (b<a) and (b<c) then writeln ('наименьшее число - ',b) else writeln ('наименьшее число - ',c); end.