Пожалуйста помогите написать 3 несложных задания...
1...Записать на языке паскаля: Условие   1) -3<x<=(меньше или равно)10;
                                                              2)x (не равно 0) ,у(не равно 0);
                                                              3)x(принадлежит) [-10;0);
                                                              4)величина x не кратна 3:

2.Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит на экран.

3.Введите три числа a,b,c.Найдите сумму двух наибольших из них.

ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ ВАЖНОЕ ЗАДАНИЕ,ОТВЕЧУ ВЗАИМНОСТЬ...)
                                    Огромное спасибо за ранее...

1.1) (x>-3) and (x<=10)2) x<>0, y<>03) (x>=-10) and (x<0)4) a mod 3<>02.program koren;var c, b, a:integer;beginwrite ('Введите 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.