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

program zz1;

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

begin

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

read(a);  

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

read(b);

if (a gt; 0) and (b gt; 0) then begin a:= a - 2;  b:= b - 2; write( приобретенные числа: а = , a, b = , b);end;

if (a lt; 0) and (b lt; 0) then begin a:= a + 2;  b:= b + 2; write( приобретенные числа: а = , a, b = , b);end;

if (a gt; 0) and (b lt; 0) then begin p:= a * b; write( творение чисел = , p);  end;

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

end.