Нужна ! паскаль! ввести 2 целых числа и вывести на экран четные и нечётные числа,но чтобы четные были со знаком "-" минус.используя команду if (i mod 2) < > 0 then

Program abc;     
              var a, b, k: integer;

BEGIN

read (a, b);

for k:=1 to (b-a) do

begin

if (a mod 2) <>0 then

writeln ( a)

else 

writeln ('-', a);

a:=a+1

end;

end.