Το πρόβλημα της “κατάταξης του αθροίσματος”

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο:

1. Να διαβάζει δύο ακέραιους αριθμούς
2. Να υπολογίζει το άθροισμά τους
3. Να εμφανίζει το μήνυμα “Το άθροισμα είναι θετικός αριθμός” ή το μήνυμα “Το άθροισμα είναι αρνητικός αριθμός” ή το μήνυμα “Το άθροισμα είναι μηδέν” στην κατάλληλη περίπτωση

program PosNegZero;

var
  Num_1, Num_2: Integer;
  Sum: Integer;

begin
  Write('Δώσε τον 1ο ακέραιο αριθμό: ');
  Readln(Num_1);
  Write('Δώσε τον 2ο ακέραιο αριθμό: ');
  Readln(Num_2);

  Sum := Num_1 + Num_2;

  if Sum > 0 then
    Writeln('Το άθροισμα είναι θετικός αριθμός')
  else
    if Sum < 0 then
      Writeln('Το άθροισμα είναι αρνητικός αριθμός')
    else
      Writeln('Το άθροισμα είναι μηδέν');
end.