Пожалуйста помогите написать 3 несложных задания...1...Записать ** языке паскаля: Условие...

Question

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

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

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

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

Answer 1

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