написать программу, которая будет выдавать разность чисел и называть отрицательная она или положительная, ктому же если разность равна нолю, она должна показать это:

var num1, num2:integer;

begin

readln(num1, num2);

if num1 - num2 > 0 then

write('Число ', num1-num2, ' положительное')

else if num1 - num2 = 0 then

write('Число ', num1-num2, ' не является как положительным, так и отрицательным')

else

write('Число ', num1-num2, ' отрицательное');

end.