Дано два числа. Если числа положительны, то уменьшите их на 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.