Program posnegzero;

uses WinCRT;

var

   Number:real;

begin

     Writeln ('Enter a number and my cool program will tell you');
     Write ('if it is positve or negative : ');
     Readln (Number);
     Writeln;

     if (Number>0) or (Number<0)
       then 
         begin
              if Number>0 then
                begin
                     Writeln (Number:0:2, ' is a positive number!');
                     Writeln;
                     Writeln ('Isn''t this a great program?');
                end

              else
                begin
                     Writeln (Number:0:2, ' is a negative number!');
                     Writeln;
                     Writeln ('Isn''t this a great program?');
                end;

         end
    Else Writeln ('Good question, is zero positive or negative?');
end.