Дано два числа. Если числа положительны, то уменьшите их на 2. Если числа отрицательны, то увеличить их на 2. Если первое положительное, а второе отрицательно, то найти их произведение. Если первое отрицательно, а второе положительно, то найдите их разность

program zz1;

var a, b, p, s:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if (a > 0) and (b > 0) then begin a: = a - 2; b: = b - 2; write (' полученные числа: а = ', a, ' b = ', b); end;

if (a < 0) and (b < 0) then begin a: = a + 2; b: = b + 2; write (' полученные числа: а = ', a, ' b = ', b); end;

if (a > 0) and (b < 0) then begin p: = a * b; write (' произведение чисел = ', p); end;

if (a 0) then begin s: = a - b; write (' разность чисел = ', s); end;

end.