Решите . 1) даны 2 числа. если сумма этих чисел равна 0, то вывести слово "да", противном случае вывести слово " нет". 2) если число,введённое с клавиатуры меньше 5, то вывести "меньше5". 3)дано целое число. если оно равно 7, то вывести " воскресенье ". 4) даны 3 чичла. если произведение этих чисел равно 0, то вывести " один равен 0". 5) даны 2 числа. если разность этих чисел равна 0, то вывести "они равны". ( надо! )

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.