Решите пожалуйста. 1) Даны 2 числа. Если сумма этих чисел равна 0, то вывести слово "да",...

Question

Решите пожалуйста.
1) Даны 2 числа. Если сумма этих чисел равна 0, то вывести слово "да", противном случае вывести слово " нет".
2) если число,введённое с клавиатуры меньше 5, то вывести "меньше5".
3)дано целое число. Если оно равно 7, то вывести " воскресенье ".
4) даны 3 чичла. Если произведение этих чисел равно 0, то вывести " один равен 0".
5) даны 2 числа. Если разность этих чисел равна 0, то вывести "они равны". (ПОМОГИТЕ ОЧЕНЬ СРОЧНО НАДО!)

Answer 1

1.
var a, b: integer;
begin
read(a,b);
if (a + b = 0) then writeln('Да') else writeln('Нет');
end.
2.
var num :integer;
begin
read(num);
if (num < 5) then writeln('меньше 5');
end.
3.
var num :integer;
begin
read(num);
if (num = 7) then writeln('Воскресенье');
end.
4.
var a,b,c :integer;
begin
read(a,b,c);
if (a * b * c = 0) then writeln('один равен 0');
end.
5.
var a,b :integer;
begin
read(a, b);
if (a - b = 0) then writeln ('они равны');
end.