Написать программу на Pacal задачи: 1.Дано два ненулевых числа проверить истинность высказывания "числа имеют разные знаки". 2. Дано два целых числа проверить истинность высказывания " оба числа четные".

1. var a,b:integer; begin readln(a); readln(b); if ((a>0) and (b>0)) Or ((a<0) and (b<0))  writeln('У обоих чисел одинаковые знаки') else writeln('У чисел разные знаки') ; end. 2. var a,b:integer; begin readln(a); readln(b); if (a mod 2=0) And (b mod 2=0) then writeln('Высказывание истинно') else writeln('Высказывание ложно')  end.