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

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

Program pr;

uses crt;

var a, b:real;

Begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите второе число');

readln (b);

if (a<0) and (b<0)

then

Begin

a:=a+2;

b:=b+2;

writeln ('a = ', a);

writeln ('b = ', b);

end

else

if (a>0) and (b<0)

then

writeln ('a*b = ', a*b)

else

if (a0)

then

writeln ('b-a = ', b-a)

else writeln ('Ни одно условие не выполняется');

readln;

end.